OPERATION: 
SABOTAGE 
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realm of magical beings? Perhaps you're an 
astronaut, thousands of light years from 
earth, searching the galaxy's rim for 
the fabulous treasures and ad- 
^-^ vanced technologies of a 
long-dead civilization. Maybe 
you're the plunderer of 
ancient pyramids in a 
maddeningly dangerous 
yj^ land of crumbling ruins. 

'' "" and trackless desert 

wastes. 
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YOU Wish to soar to 
other worlds, to behold 
wonders never beheld 
by mortal eyes, to dream 
unrestrained to the 

furthest limits of your 

Imagination. 
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The ADVENTURE SERIES 

by Scott Adams has been 

reviewed by every major 

microcomputing magazine, 

receiving only the highest 

praise for its mind-puzzling 

challenge & refreshing originality. 

Tens of thousands of adults and 

children have matched wits with 

the Adventure Master. Now, it's your 

turn. If you crave the challenge and 

panorama of the exotic, touched with 

^ sparkling humor, then the Adventure Series is for you. 



/^^dventure 

\^i^P^ INTERNATIONAL 

■ • 1982 * DIVISION OF SCOTT ADAMS, INC. 

BOX 3435, LONGWOOD FL 32750 

(305) 862-6917 (QUESTIONS) 

ORDER FROM YOUR FAVORITE DEALER 

or CALL TOLL FREE (800) 327-7172 

(ORDERS ONLY PLEASE i'^ 



t 
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$ 7,95 



Adventure Hint Book (All 12} .. 
Advenlure Hint Sheet (Single) 

Commodore VIC (Caitridge) 39.95 | 

T.I, 99/4 (Tape or Disk) 29.95 | 

Requires Advenluie Command Module 

'Scolt Adams' Graphic Adventuic Series | 

Apple Disks-Full Color Hi-Res Graphics. 
tl2 Advenluff? Hinl Book I 



AU disks 
have two 
sides. 



Bttt only 

Flip/FIoppY lets you 

use both sides in 

single-sided 

drives. 




Double your capacity. Premium quality, too. 



Now you can double disk storage capacity as well 
as save on media costs if you have an Apple, 
TRS-80, Zenith, Northstar or any single-sided, SVa " 
^ disk drive. Omni's Flip/Floppy 
lets you record on both 
sides ... so you can con- 
solidate long programs and 
get twice as much storage 
in one disk at far less cost 
than two conventional 
disks with the same 
capacity. 




Plus 



a FREE storage case if you 

order now. with every ten-pack you order 
(even conventional disks), you'll get a $5.00 pro- 
tective plastic case, absolutely free. 
Be sure to indicate system name and model # at right. 



Like our full line of flexible disks, each Flip/Floppy 
is critically certified at more than twice the error 
threshold of your system; rated for more than 12 
million passes without disk-related errors or signif- 
ficant wear; precision fabricated with such 
standard features as reinforced hub rings; and 
backed by a full, 90-day money-back guarantee. 

Omni Resources 

4 Oak Pond Avenue, Millbury, MA 01527 

Dealer inquires invited. 

Software houses: 

call for duplicating services. 




#of 
10 Packs 



5 Vi" Disks 

Flip-Floppy reversible 
Double side/double density 
(equivalent to 20 
conventional disks) 
Single side/single density 
Single side/double density 
Double side/double density 
Shipping and handling 
5 % sales tax (Mass. only) 



Price Per 
10 Pack 



Total 
Price 



Call ton free (800) 343-7620 
In Mass: (617) 799-0197 

Call if you're not sure which disk is compatible with your 
system. Call for prices on 96 tpi and special formats. We 
offer an unconditional money-back warranty. 

n Check D MasterCard 

n COD D VISA 



$40.00 


$ 


$30.00 
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$40.00 


$ 


$45.00 


$ 




$2.00 
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Total 


$ 
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Address . 
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Operation: Sabotage 

by Ray Sato 

Translations by Ron Shaker anci 
Rich Bouchard 

Encryption mo(iifications by Rich 
Bouchard, Bill Kubeck and Alan J. Zett. 
In another of our encrypted adventures, 
you'll be challenged to infiltrate an alien 
installation on Mars. They are planning to 
build an incredible defense shield and you 
must steal the plans and destroy the com- 
plex. Good luck — you may get out alive. 



Sri Lanka Imports At the NCC 

by David D. Busch 
A tongue-in-cheek look at a fictitious 
company's introduction of such unique 
products as a black phosphor monitor at 
the National Computer Conference. 
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C.A.T.S. (Parts II & III) 

by Jon Voskuil 
Translations by Alan J. Zett 
With this month's completion of the 
Computer-Assisted Testing System, you'll 
be able to administer the tests you created 
with the first module, score the students 
on their responses and keep accurate 
records for future reference. 
SoftSide 



A Few Words From the 
Phantom Programmer 

Our mysterious contributor offers a few 
words of advice on the use of I and O, 
(Or is it 1 and 0?) as variables in program 
listings. 

18 

Anatomy of an Adventure 

by Peter Kirsch 

The creator of many of SoftSide's 
Adventures of the Month will take you 
step by step through the process of 
writing an original adventure and 
translating it to other systems. He's 
included his own "Adventure Skeleton" 
in this valuable tutorial. 
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The National Computer Conference — What's a 
Mainframe? 

by George Blank 

This year's NCC revealed that the microcomputer is a contender 
for almost all serious computing applications. Here's a com- 
prehensive report on the introduction of systems from such 
unexpected manufacturers as Sony and Epson. 
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Article 

APPLE DISKOURSE by Gary W. Bradley 
You're on your way to having a valuable disk utility with 
this installment of the series — Disk Snooper. It will allow 
you direct access to the secrets hidden away on your 
diskettes. 

Review 

WIZARDRY — Scenarios I & II 

Reviewed by Hartley G. Lesser 



Entertainment Tomorrow 

by Fred D'Ignazio and Allen L. Wold 

Disney Studios' TRON has brought a new age of animation to 
the film industry. The authors give an extensive background on 
the computer graphics companies responsible for these devel- 
opments accompanied by some exciting scenes from the movie. 
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Enhanced Disk Version 

NEAT LIST by Frank Roberts 
This useful listing utility will make the line output of your 
programs much easier to understand. Statements will be 
listed on individual lines and REMarks will be framed by 
asterisks. Debugging will never be the same. 

Article 

ATARI® SILENCER by John J. Anderson 
If you or your family are annoyed by the constant output 
of the speaker on your ATARI® console, here's the 
solution. With only a few inexpensive parts, you can put a 
switch on that speaker so you are in control. 



oZd Review 

DEADLINE Reviewed by Eric F. Wolcott 
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o4 Enhanced Disk Version 

UP PERISCOPE by Ron Potkin 
Exciting sea-battle action comes to the screen of your 
TRS-80® . This wargame/simulation is packed with 
destroyers, submarines and a convoy of vessels to keep 
two players fast on the keys in dramatic competition. 



00 Enhanced Disk Version 

CLOZE TEST by William D. Hedges 

The Classroom Teacher's Diagnostic Reading Test enables 

the teacher or parent to determine whether a student is 

able to read materials with understanding. It is also a 

valuable self-improvement tool for reading 

comprehension. 



Reviews 



87 ALIEN DEFENSE Reviewed by Andre Chen 

88 NEWSCRIPT 7.0 Reviewed by Harry Temple 



92 THE TAS ADVENTURE SYSTEM 

Reviewed by Mark E. Renne 
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the battle for the moons of Jupiter 





Blast your way through the alien BEYOND SOFTWARE'S arcade- 
mine fields! Defend the moonbases from an adventures are the next generation in 
attacking alien armada! It won't be easy, computer games for the ATARI® computer. 



To win you will need to mount 
a heroic assault on the alien 
mother ship. 

Moonbase lo combines three 
exciting arcade adventures in 
one exciting game. The machi 
language program by John Kono 

uses advanced graphics and 
sound effects. Action is fast and exciting — 
varying levels of skill required to go from 
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A voice-activated program will 
help you meet ana overcome the 
challenge— it may be an alien 
invasion, a fiendish murderer 
preying on a country village or 
a treasure trove buried deep in 
the shark-infested sea. 

Moonbase lo is available at fine 
computer dealers. Or, directly from PDI 
for $29.95 plus $2.00 shipping and 
handling. 



one part of the game to the next. 

Requires 24K ATARI® computer with disk and cassette 
Cassette version available soon. 




Program Design, Inc., 1 1 Idar Court, Greenwich, CT. 06830 203-661-8799 



ATARI'" is a registered Irademark uf Atari, hie. 
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Microcomputers Reach 
the Age of Adolescence 



by Randal L. Kottwitz 



For several years now, we have been 
speaking of the microcomputer in- 
dustry as being in its infancy. 
Businesses and consumers ahke have 
been "getting their feet wet" in order 
to be prepared for the infant to grow 
up. Indeed, many consumers are still 
looking at the purchase of computers 
such as the Timex/Sinclair as a way of 
finding out whether computers are for 
them. However, those who saw the 
potential impact of this technology 
several years ago are now the people 
producing the machines and software 
to truly utilize the technology from a 
more current than futuristic point of 
view. Today's computer buyer can be 
enticed by what the machine can do for 
him when he gets it home rather than 
on the basis of what it can do for him 
when the proper software has been 
developed. It's been said that 
VisiCalc® has sold more Apples^*^ than 
Apples^*^ have sold copies of Visicalc®. 
It would not be inappropriate to say 
that the industry has progressed 
beyond its infancy, into adolescence. 

The point of this observation? As a 
human being suffers from growing 
pains and confusion during his 
adolescence, so is the microcomputer 
industry suffering similar symptoms. 
The software developers who have 
been working with the current popular 
systems have now progressed to a point 
that they are more aware of the limita- 
tions of those systems than they are 
awed by potential applications. This 
situation would be a source of only 
minor frustration if no solution ex- 
isted. However, their consternation is 
doubled as yet another generation of 
microcomputers takes its position in 
the marketplace, replete with answers 
to their frustration. Developers who, 
several years ago, were awed by the 
potential of 48K RAM and mini-floppy 
disk storage are now crying for more 
RAM, more storage and more speed — 
all available as 64K RAM chips, hard 
disk storage and 16-bit micropro- 
cessors become an affordable reality. 



It's easy for us at SoftSide to observe 
the progression of software authors. 
When SoftSide began publishing in 
1978, it was rare that we saw a program 
submission which required more than 
4K. Today, it's becoming increasingly 
difficult for us to find quality pro- 
grams which utihze less than 32K. In 
the same vein, our authors are becom- 
ing more and more oriented to the 
utilization of disk storage. As an 
author matures in his knowledge of the 
marvel of technology behind his 
keyboard, how can he help but want to 
make use of its every capability? 
Although we are acutely aware of the 
number of people who have just spent 
their last available cent to purchase a 
16K, cassette based system, it's become 
impossible for us to make every piece 
of software we publish conform to that 
standard. Indeed, it would be unfair to 
try to satisfy all of our subscribers with 
software designed for the lowest com- 
mon denominator of the systems we 
support. Our answer is to attempt to 
provide "something for everyone." 
However, we cannot be sure how long 
that can remain a reality — especially 
as RAM upgrades and disk drives 
become more and more affordable. 
You may wish to take that as a 
foreboding of the future direction of 
SoftSide. That it is, but more impor- 
tantly, it is an observation on the 
future of the microcomputer industry 
as a whole. One need only look at the 
specifications of computers being 
brought to market by such consumer 
oriented companies as Sony (see The 
National Computer Conference — 
What's a Mainframe! elsewhere in this 
issue) to realize that 64K RAM and 
disk drives as an entry level system con- 
figuration is soon to be the standard. 

I was told when I bought my first 
microcomputer (48K, interface, printer 
and a disk drive) that I was being 
foolish if I thought it would be the last 
computer I would purchase. I agreed at 
the time that this was certainly a racing 
industry and its technological growth 
SoftSide 



would dictate future upgrades. Little 
did I know how soon I would be 
hungering for a larger system with bet- 
ter sound, color and graphics 
capabihties. I'm sure there are many 
SoftSide readers who are having the 
same feelings of frustration. 

Take a moment and peer through the 
looking glass at the world of tomorrow 
with me. The frustration with which we 
are now coping will seem insignificant 
as we attempt to determine which of 
the central information services we 
wish to enter our homes. No longer will 
the memory size or storage capabihties 
of our system have any meaning, for 
every piece of information we could 
possibly desire will be available 
through a cable connection — awaiting 
only the touch of a few keys to sum- 
mon it to our screen. There will be a 
great deal of this information even 
more readily available as images of 
most of the books and artworks of the 
world will reside on the small collection 
of laser discs on our Hbrary shelves. 
Just imagine when one of our grand- 
children asks, "What's a mini- 
floppy?" 

There's no doubt that the rate of 
change in the microcomputer industry 
is experiencing exponential growth. It 
is truly comparable to the rate of 
change a human being experiences in 
his adolescence. There is one com- 
forting thought as we wonder about 
the future of this field we've chosen to 
join — somehow, each of us came out 
of our own adolescence more mature 
and refined. The home computer in- 
dustry will emerge from this turbulent 
period of change with something of the 
same results — better directed with a 
more complete understanding of its 
purpose. © 
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Randal L. Kottwitz 
Editor-in-Chief 
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Alaskan Apples^"^ 

Dear SoftSide, 

I only recently received your flyer re- 
questing extended subscriptions. Due to the 
unavoidable delays associated with weekly 
mail planes here in the bush of Alaska, I 
have been unable to meet your deadline of 
May 30. 1 hope you will still honor the com- 
mitment I would like to make to SoftSide. I 
think it is simply the best on the market for 
home computer hacks! For us, pounding 
away on our little Apples^"^, hooked up to a 
15 KW diesel generator, the enjoyment and 
diversity of software we receive each month 
is more than worth the subscription price. 

Keep up the good work. 

James R. LaRiviere 
Lime Village, AK 



Australian ATARI® 's 

Dear SoftSide, 

A new Australian users' group for 
ATARI® owners was formed in January of 
this year, with the goals of promoting the 
ATARI® 400/800 Home Computer System, 
instructing both beginners and advanced 
users in programming techniques, exchang- 
ing hints, tips and ideas amongst members, 
and generally enjoying ourselves. 

Meetings are held at six p.m. on the first 
Monday of every month (or the second 
Monday if it clashes with a public holiday) 
at the offices of: 

LP. Sharp Associates 

8th Floor, Carlton Center 

55 Elizabeth Street 

Sydney (between King Street and 

Martin Place) 

Meetings are not restricted to ATARI® 
owners. Interstate ATARI® owners are also 
invited to write for the names of contacts in 
their state. 

The group is called A TARI® Computer 
Enthusiasts (N.S.W.). We are loosely af- 
filiated with A.C.E. in the U.S.A., which 
has several branches throughout North 
America and membership worldwide. 

Membership to A.C.E. (N.S. W.) is $15 
joining fee and $15 annual subscription in 
common with other user groups. This is 



reduced to $10 joining fee and $10 annual 
subscription for students under 18. (All 
prices in Australian dollars.) 

Subscriptions or postal enquiries may be 
directed to: 

ATARI'^ Computer Enthusiasts (N.S. W.) 

78 Ayres Road 

St. Ives, N.S.W. 

AUSTRALIA 2075 

Phone enquiries: Garry Francis 

(02)2-0933 Ext. 354 (B.H.), (02)789-1397 

(A.H.) or Paul Phillips (02)449-6286 

(A.H.). 



Earlwood, N.S.W. 



Garry Francis 
AUSTRALIA 



KTXm® SWAT 

Dear SoftSide, 

The S WA T program in issue 30 is a great 
idea. It should eliminate a lot of the frustra- 
tion those ever-present typos can cause. 

One curious thing, though. I typed in the 
Dungeon of the Gods program (ATARI® 
version) and ran the SWAT program on it. 
I found that, while the line numbers and 
length numbers matched your listing, not 
one of the SWAT codts I generated was the 
same as your table. Yet, the program seems 
to run fine... strange. 

Now a request. How about SPF/ir tables 
for programs from previous issues? I still 
have a few programs which need debug- 
ging, but so far have defied all my efforts. 
Why not publish tables in an upcoming 
issue for, say, one entire previous issue? Or 
perhaps you could make tables for a year of 
SoftSide available for separate purchase. 

At any rate, keep up the good work. 

Alan Varner 
Old Greenwich, CT 



5^Mr From the Past 

Dear SoftSide, 

Once upon a time way back in October 
1980, I received through the mail an ab- 
solutely free, try before you buy, kick the 
tires, slam the doors, try it you'll Uke it, bet 
you can't live without us, complimentary 
copy of SoftSide. A few hunt and pecks 
later and I was HOOKED! So, out came the 
old checkbook and my addiction was 
established. 



It was a bleak, lonely Fall and cold, bitter 
Winter of agony as I daily checked my 
mailbox for my first "bought and paid for" 
issue to arrive. Finally, as the winds began 
to howl in March, the mailman wheeled in 
with a flourish, lurched to a stop, lept from 
his vehicle, and raced to my door with the 
long coveted first issue. Never before or 
since in the history of the post office has 
such diligent care been given to so impor- 
tant a document as this. 

It was with bated breath that I nervously 
sat and turned the first few pages to the 
table of contents to whip up an appetite for 
the feast I knew would soon follow. Im- 
agine for a moment my extreme pleasure 
when I discovered not only were there four 
good programs for my TRS-80® in that 
issue, (more than enough, at my slow hack 
rate, to last until the next issue arrived) but 
two of the programs utilized sound routines 
— that extra ingredient that pulls more of 
the senses into the interaction of man and 
machine. 

Over the next few days I somehow 
managed, despite obligations to work, 
family, meals, sleep, etc., to get Strategy 
Strike typed in. At last, the golden moment 
had arrived when, poised hesitantly over 
the keyboard, I could type those three little 
letters R, U, N. 

Now, my fingers are not all that 
misshapen or overly large, nor is my 
keyboard unusually small, but somehow 
the two adjoining letters U and I were hit 
sequentidly, followed immediately by an N 
and ENTER while typing that simple three 
letter word, so that I had inadvertently 
typed "RUIN". Thus, a new BASIC com- 
mand was born and instantly understood by 
my computer. For, although the computer 
responded with the usual SYNTAX ER- 
ROR, I suspect some internal skulduggery 
because, to this day, the program doesn't 
work quite right. 

Each month, I eagerly await the next 
issue in hopes of seeing the necessary cor- 
rections to make this baby fly, but so far, 
not so good. I've dumped it to the printer 
and checked line for line against the 
published versions, made some fixes, 
redumped, rechecked, etc., but still just 
can't discover what's wrong. 

Having just received the new, non-dated 
format. Issue 30, I discovered what might 
be a possible solution to my problem. Your 

continued on page 8 
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GOODBYE MARY LOU, 
HELLO MICROCOMPUTER 

Sorry 'bout that, Mary Lou! 

But your boyfriend has a new PET®. In fact, he may 
even have an Atari®, Apple 11®, TRS-80® or TRS-80® 
Color Computer, too . . . any of which plays an 
Avalon Hill Microcomputer Game. 

Here's what's BRAND NEW from Avalon Hill: 
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VOYAGER 

A solitaire computer game ttiat 
ctiallenges ttie tiumon player to 
explore ttie four levels of on alien 
spacecraft's maze-lil<e corridors 
and rooms in 3-D simulated 
graphics, all ttie wtiile avoiding 
robots programmed to blast any 
intruders. In order to vj\n, ttie 
tiuman must destroy all povjer 
generators and escape or tiunt 
out and annitiiiote ttie killer robots. 
VOYAGER comes witti color- 
animated graptiics and sound 
capabilities for computers so 
equipped. 




GALAXY 

Have you ever wanted to conquer 
ttie universe? In GALAXY, players 
send ttieir galactic fleets out to 
explore and conquer ttie 
universe, solar system by solar 
system. The planets discovered 
may be barren worlds or they may 
possess immense industrial 
capacity and defensive ships to 
resist colonization. GALAXY 
comes with sound effects (for com- 
puters with sound capability) 




DNIEPER RIVER LINE 

A fictionalized engagement be- 
tween the Russian and German 
forces in the southern Ul<raine in 
1943, The game challenges you, 
the German commander, to repel 
Russian efforts to breach the 
Dnieper River defensive positions. 
Soviet units, controlled by the com- 
puter, seek to overrun the thin 
German line and capture suffi- 
cient objectives to attain victory. 
DNIEPER RIVER LINE has four levels 
of difficultY and comes complete 
with over 300 illustrated counters 
and a mounted mapboard. 



CONTROLLER 

A real-time simulation of air traffic 
control in which you will have to 
guide the approach and landing 
sequence of up to 8 aircraft. There 
are three types of aircraft: Light 
Planes, Airliners, and Private Jets, 
with each type having a different 
rate of climb, turning ability, stall 
speed, ceiling, fuel consumption 
and fuel capacity. CONTROLLER 
transforms your microcomputer 
screen into a realistic "radar 
scope"; also, each aircraft's 
heading, velocity, and altitude is 
continuously displayed on a 
separate chart next to the radar 
scope. 

Call Toll-Free For Credit Card Purchasing 
Ask lor Operator SS. 1-800-638-9292 
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GUNS OF FORT DEFIANCE 

In this exciting arcade game, you 
are the commander of a "IPth cen- 
tury artillery piece in a besieged 
stockade. For each shot you must 
specify a type of ammuni- 
tion—ball, cannister, shell or 
spherical case— and fuse length 
(if applicable), and set the eleva- 
tion and deflection of the cannon. 
The computer controls the enemy 
forces, randomly attacking with 
cavalry, infantry or another 
artillery piece. 



COMPUTER 

FOOTBALL STRATEGY (not stiown) 
Thrilling computer version of 
Avalon Hill's famous board game. 
Based on the award-winning 
Sports Illustrated game of profes- 
sional football. 



SOFTWARE 
GAMES 


Wnh Cassette For: 


Witli Diskette For: 


rHS-80 
Color 


rRS-80 
Models 
IS III 


APPLE 

ir + 


PET 
CBM 


ATARI 
400/ 
BOO- 


TRS-80 
Models 

IS III 


APPLE 

r + 


ATARI 
400/ 
800- 


IBM 
PC 


PRICE 


•Computer 
Foot.Strat. 
































32K 








21.00 


"Controller 
















40 K 




30.00 






















•Galaxy 




16K 


16K 


16K 


16K 










20.00 












32K 


48K 


32K 


48K 


25.00 


•Guns ol 
Ft. Defiance 




16K 


32 K 


16K 


32K 










20.00 












32K 


48K 






25.00 


•Voyager 


16K 


16K 


32 K 


32K 


24 K 










20.00 














48K 


32K 


48K 


25.00 


•Dnieper 
River Line 




32K 


32K 


32K 


48K 










25.00 












32K 


48K 


48K 




30.00 


•Foreign 
Exchange 




16K 
















20.00 


(NOT SHOWN ABOVE) 















Avalon Hill 

t\/licrocomputer Games, Dept. SS 
4517 Harford Road 
Baltimore, l\/laryland 21214 

Send me the games circled on chart at left. 
Specify quantity, and cassette or diskette 
for your type of computer. I add 10% for 
postage. 

NAfVIE 



STREET. 
CITY 



STATE. 



. ZIP_ 



Input continued 



SWAT program could just save the day if 
only you'd publish a SWATt&blQ for each 
program in past issues. I know that would 
require an entire issue in itself, so how 
about making SWAT VabXts for past issues 
available by mail to your subscribers for 
specific programs of interest to them? 

In conclusion, I'd like to compliment you 
once again for an excellent publication with 
what most of us want — programs and 
sound programming advice, not "mumbo- 
jumbo" in obscure computerese way over 
the heads of most of us hackers. 



Art Prennace 
Flagstaff, AZ 



OUTPUT 

by Randal L. Kottwitz 

Once in every few issues, SoftSide 
publishes a program or article which causes 
a great stir among our readers and fills the 
editorial department's mailbox for weeks. 
SWATh&s done just that. The letters you 
see above are only a samphng of the many 
we've received requesting SW/1 7" tables for 
our programs from past issues. Regrettably, 
we are not able to do so at this time. We do 
our best to keep our master disks for 
duplication updated with any bug reports 
we receive from our readers and any 



substantial enhancements as well. 
Therefore, were we to publish SWAT\.ab\t& 
run on those programs at this time, they 
would not necessarily accurately corre- 
spond to the code you see printed in your 
issue. We're looking into the problem more 
thoroughly as we do feel such a tool would 
be valuable. A possible solution would be 
to engage in a program of publishing not 
only the SWAT tables, but a combined 
listing of all the bug reports and 
enhancements we've published for a given 
program from the past as well. 

Due to the unique manner in which 
ATARI® BASIC stores variables, there has 
been a great deal of consternation over the 
ATARI® version of SWAT. The program 
and SWMr tables published in issues 30 and 
31 are correct. The solution to the problem 
many of you have been having is to LIST 
the program to be S WA Ted to tape or disk 
and then ENTER it back into memory 
before appending SWAT. See the General 
Information page in this issue for further 
details. 

In many cases, when SoftSide reviews a 
product for one of the systems we support, 
versions of the same product are available 
for one or more of the other systems. With 
this issue, we will start a cross-referencing 
system to let you know that there's a review 
in one of the other "Sides" that pertains to 
a product available for your system. Be sure 
to look at the first page of the review sec- 
tion of the ' 'Side' ' for your computer to see 
if there are other reviews in the magazine 
which would be of interest to you. 



At the recent Applefest in Boston, all 
visitors to the SoftSide booth were en- 
couraged to enter a free drawing for a one 
year subscription to SoftSide DV. At the 
conclusion of the show, we drew the name 
of Stuart Lipman of South Windsor, CT 
from the hundreds of entries. Mr. Lipman 
uses his Apple lU^ computer at the office 
and had succumbed to the pressure from his 
wife and children to bring the computer 
home only a few days before Applefest. 
Now, not only will his family enjoy the art 
of computing at home, but, they'll have a 
monthly source of software from SoftSide 
DV as well. 

We have quite an issue planned for you 
next time in SoftSide. We'll be celebrating 
our fourth anniversary and the subject for 
this special issue will be microcomputer 
graphics. I am more than happy to an- 
nounce that we will be publishing the first 
in a series of program modules for all three 
systems presenting Envyrn^'^, the graphics 
oriented database manager we introduced 
for the TRS-80® in our anniversary issue 
last year. This will be a continuing series of 
programs, much along the lines of our 
Developing Database series. We'll be 
publishing extensive tutorials on the use of 
each of the modules. When you're finished, 
you'll not only have a dynamic tool, but an 
extensive background on how to use it as 
well. In addition, we'll have reviews of the 
latest graphics packages available for your 
computer, and an article on the philosophy 
and techniques of "electronic art." Until 
then, happy hacking! Q 



GET SERIOUS . . . 

Gncompromised design delivers superior 
quality and reliability. Todays latest technology 
allows your Atari 400 to run up to 50% cooler 
and provide truer video clarity. We guarantee it. 

So let's get down to business. 

48K RAM for the 
ATARI 400 




Computer Products j 



Send certified ched< 
or money order. Visa 
and Mastercard wel- 
come. N.Y. residents 
please include sales 
tax. Dealer inquiries 
invited. 

Atari Is a registered 
trademaik 



In (ISA - 3648 Southwestern Blvd., Dept. S Orchzird 
Park, N.Y. 14127 Tel: (716) 662-7219 

In CANADA - 2 Robert Speck Parkway, Suite 1 500-S, 
Mississauga, Ontario L47-1H8 Tel:(416) 273-6820 




SoftSide 



HINTS & ENHANCEMENTS 




APPLETi^ SOLITAIRE JOYSTICKS 

Here is an enhancement for the Apple^"^ 
version of Solitaire (May, 1982) to use 
joystick instead of keyboard control. This 
speeds up game play and allows you to en- 
joy several hours of "just one more game." 

Lines 1330 through 1390 were rewritten 
to read paddles & 1 and pushbutton & 1 
instead of the GET A$. Line 1391 was 
added to go along with the reversed logic in 
line 1390. Keyboard read and clear were 
added at lines 1400 and 1415 for end of 
game. Finally, line 1460 was revised to 
display the joystick movement diagram. 



1330 RL = PDL iO);PD = PDL (!) 
1340 !F RL > 190 THEN BOSUB 200 

! BCTO 1330 
1350 IF RL < 50 THEN GOSUB 240: 

GOTO 1330 
1360 IF PD < 50 THEN GOSUB 280: 

GOTO 1330 
1370 IF PD > 1?0 THEN GOSUB 410 

; SOTO 1330 
13S0 IF PEEK { - li287) > !27 THEN 

GOSUB 100: GOTO 1330 

1390 IF PEEK ( - 16286) > 127 THEN 
1392 

1391 GOTO 1400 



1415 POKE 



Ii368,0 



1460 HOKE ; PRINT "Bl ^ TO FOUND 
ATION PICK UP CARDS 

MOVE LEFT <-+-> RO 
VE RIGHT SO = NEXT CftRB 

y DROP CARDS E = 
END GAME"! 



Robert J. Hayosh 
Farmington, MI 



APPLE™ SOLITAIRE SHUFFLING 

I have immensely enjoyed the Solitaire 
program published in the May issue, and 
have one suggestion for improving it. The 



author is to be commended for including a 
randomizing routine in the Apple^"^ ver- 
sion, since the Apple^*^ does not do this on 
its own. However, as the program is writ- 
ten, only 65536 different randomizations of 
the deck of cards are possible, since this is 
the number of possible seeds for the ran- 
dom number generator (in line 1220 of the 
main program). 

This may not seem like a very great 
restriction; in fact, I don't beheve I've 
played quite that many games yet myself! 
But it does exclude a rather large number of 
possible shufflings, when you consider the 
fact that 52 cards can be shuffled in 2 times 
3 times 4 times 5 times... (etc.)... times 52 
different ways. That works out to 
something over 8 times 10 to the 67th power 
(an 8 followed by 67 zeros). 

A number of methods of increasing the 
randomization factor would be possible, 
but the simplest might be to avoid re- 
seeding the random number generator each 
time the deck is shuffled. If it were seeded 
only upon running the program for the first 
time, then, at each sitting, one of 65536 
possible series of shufflings would be 
initiated, each series being unique. This can 
be accomplished by adding a Une #5 to the 
main program, which would be exactly the 
same as the present line 1220, and deleting 
line 1220 (in other words, moving line 1220 
to line 5); and then making the following 
changes to lines 1396 and 1440: 

1396 TEXT : HOME : IF A$ < > "N" 
THEN CLEAR : RESTORE : GOTO 1110 
1440 TEXT : HOME : CLEAR : 
RESTORE: GOTO 1110 

To enhance the possibilities still more, 
one could extract an additional random 
number from location 78 or 79 each time 
the deck is shuffled, to generate a few dum- 
my random numbers before the deck is ac- 
tually shuffled. The following addition 
would take a few more seconds of initiali- 
zation, but would gain still greater 
randomization: 

1225 RN = PEEK(78) : FOR I = 1 TO RN 
: J = RND(l) : NEXT 



Jon Voskuil 
Milford, NH 



SoftSide 



ATARI® MICROTEXT PAGE 
NUMBERING 

I'm writing to thank you for your 
publication of Microtext 1.2 and to add 
another useful feature for ATARI® users. 

If lengthy manuscripts or documents are 
composed on the word processor, it is often 
useful to have pagination (numbering of the 
pages) during the printout. This feature can 
easily be added to Microtext 1.2 with the 
following additions. During multipage 
printing, if the operator selects an option, 
page numbers will be inserted at the bottom 
of the page beginning with the second page 
of the manuscript. 

I hope others will find this modification 
useful and I look forward to seeing other 
enhancements to the program. 

To add pagination, make the following 
additions: 

LINE 7035 ?: ? "Pagination? (Y for yes)" 

LINE 7036 INPUT SS$ 

LINE 7037 IF SS$ = "Y" THEN 

G=1:E = 

LINE 7154 IF G= 1 THEN FOR W = LIN 

TO 58:LPRINT " ":NEXT W 

LINE 7155 IFG=1 THEN 

E = E-l-l:LPRINT" ";E 

LINE 7614 IF G = 1 AND LIN >59 THEN 

E = E-l-l 

CHANGE LINE 7615 IF G= 1 AND 

LINE >59 AND E >1 THEN 

LPRINT:LPRINT " ";E:LIN = LIN-l-2 

LINE 7616 IF G = 1 AND LINE > 59 AND 

E > 1 THEN FOR J = 1 TO 66-LIN: 

LPRINT "":NEXT J:LINE = 

0:GOTO 7620 

LINE 7617 IF LIN >59 THEN FOR J = 1 

TO 66-LIN:LPRINT "":NEXT J:LIN = 

Don't forget to DIMension SS$ in line 
125. 

Again, thank you, and I'll look forward 
to future SoftSides. 

> Bruce Tanner 

Okemos, MI 



ATARI® DELETE LINE FUNCTION 
FOR MICROTEXT 

My compliments to Jon Voskuil for his 
program, Microtext 1.2, which appeared in 

9 



FOR IT!! 

Have you ever 
written a program 
that you wanted to sell... 



but didn't because you 
were afraid it wasn't good 
enough? Well, I ask you, 
just what is "good 
enough"? If you're submit- 
ting an arcade game to a 
commercial software 
house, "good enough" 
means machine language, 
high speed, flashy 



graphics, and fancy copy 
protection. In that league, 
"good enough" is 
downright exotic. On the 
other hand, if you're sub- 
mitting to SoftSide , "good 
enough" is a little closer to 
home. Not that we'll 
publish just anything, mind 
you. We do have firm stan- 



dards and the programs we 
accept must be well- 
written, interesting, and in- 
formative. It's just that we 
don't have to come up with 
Super Raster Invader Man 
every month, and if we 
don't, you don't. So your 
program may just be "good 
enough." If it is, we'll pay 



for it, so why not let us 
take a look at it? You'll find 
submission guidelines 
listed in this issue. Go for 
it. It's easier than you 
think. Write to: | 

SoftSide Publications 

Dept AG1 

6 South Street 

Milford, NH 03055 



the April, 1982 issue. After typing in all of 
the ATARI® version, I found that 
everything worked fine except the DELETE 
LINE function of the text editing 
subroutine. Changing line 9220 to the 
following gives neat removal of the in- 
tended line, followed by the upward move- 
ment of the text below. 

9220 POSITION 2,V1:PRINT S$:POSI- 
TION 2,V1:IF EL LN-1 THEN FOR 
J = EL TO EL -I- X:PRINT S$:PRINT 
"(ESC)(CTRL)-(UP)"; 
T$(LP(J-1)+ 1,LP(J)):NEXT J 

One other point — Microtext 1.2 is 
loaded with small whole numbers; i.e., 0, 1, 
2, etc.. I saved over 1800 bytes by changing 
the small whole numbers used repeatedly to 
variables; i.e., N0 = 0, Nl = l, N2 = 2, etc., 
and replacing the numbers with the cor- 
responding variable throughout the pro- 
gram. (Caution: Your ATARI® may "go to 
sleep" during such extensive editing!) 

David G. Bick 
Loudonville, OH 



ATARI® Variable Table 

Anyone who has had to squeeze a pro- 
gram into as little memory as possible on an 
ATARI® has probably found out that the 
variable table sometimes clings onto 
variables that are no longer used by the pro- 
gram. I have recently run across a very easy 
method for finding just what variables are 
in the table without using a large program 
to find and list them. Instead, you can 
simply use the command SAVE" "E:" and 
the computer will attempt to put the pro- 
gram to the editor in the same way it would 
to a cassette or disk, variable table first. 
After typing in the command, allow the 
screen to fill up half-way and then hit the 
break key. Beginning somewhere in the first 
line of the display, you will see the names of 
the program's variables, all with the last (or 
only) character in inverse. In the case of a 
string or array, that character will be either 
the $ or ( in inverse. 
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Ken Stailey 
Springfield, MA 



TRS-80® Model III MICROTEXT 

Microtext 1.2 by Jon R. Voskuil, as 
published in SoftSide, April, 1982, easily 
lends itself to upper and lower case writing 
without the use of the "@" symbol, since 
the Model III has lower case built in. With 
the changes listed below, the program 
works very well on the Model III with no 
noticeable delays in reading Control 
Characters. Delete line 530 and change the 
following lines: 

2050 IFC=1020RC=70THENRETURN 
2 1 00 I FC= 1 1 40RC=82THENGOSUB3000 : 60T0200 
2200 IFC=1 150RC=83THENBOSUB4000:60T0200 
2300 IFC=108aRC=76THENG0SUB5000: G0TQ200 
SoftSide 



2400 IFC=J130RC=81THENEND 

2500 IFC=1120RC=80THENGOSUB7000:GOT0200 

2600 IFC=1010RC=69fiNDLN>lTHENI=LN-l:PP=P: 

G0SUB9000: 60SUB3000: G0T0200 

3130 X=ASC(Xt):IFX=1010R)(=69THENGOSUB9000 

:GQT03000 

These changes allow the use of lower case 
characters and the calling of the various 
control subroutines without having to use 
the shift key to capitalize the control code 
after pressing CLEAR. However, in the 
edit mode, the "D" and "X" must be 
shifted. I decided not to make this change 
in order to make it more difficult to ac- 
cidentally delete text. 

F. Keith Byrum 
Englewood, OH 

TRS-80® TITAN 

TITAN (SoftSide, December 1981) is 
really great! We enjoy all the action and ap- 
preciate the chance to use some gray matter 
while playing. So many games depend only 
on the luck of the draw — Boooring! We 
discovered what we think is a bug in the 
TRS-80® version. In a two player game, the 
ending status scores were 1 1 and 5 for "Ac- 
taeon" and "Bellona," respectively, yet the 
mining contract was awarded to "Bel- 
lona." I investigated the end-of-game 
phase. It appears that the intentions of the 
authors were to award the contract based 
on the status points. If there was a tie the 
award would be made on the basis of an 
algorithm which takes into account veins, 
efficiency, manpower, and credit. If that is 
so, there is an error in the code which com- 
putes the winner. We have changed the 
code between lines 8530 and 8590 to the 
following: 

8522 ' Conpute winning score (Z). Find 

number of players with that score (Y). 

If only 1, find out who and print. 

3523 ' If Bore than 1, use algorithi to 

reconpute status. Repeat sequence until 

only one winner, then print hie. 

8530 Z=-1:Y=0:F0R)(=1TGPL:IFK(X,0)>=ZTHEN 

Z=K()(,0) 

8540 NEXTX 

8550 F0R.X=1T0PL:IFK(X,0)=ZTHENY=Y+1 

8560 NEXTX 

8565 I FY= 1 THENG0T085i6ELSEG0T08570 

8566 F0RX=1T0PL: IFK (X, 0) =ZTHEN8590 

8567 NEXTX 

8570 FGRX=1T0PL:IFK(X,0)=ZTHENB0SUB8580 

8571 NEXT X:GOTO 8530 

8580 K(X,0)=K(X,16)»100+K(X,15)+K(X,14)+ 

K(X,13)+RND(9):RETURN 

8590 PRITNS960,"The supervisor of"-,HID$( 

fl$,(Xtl0)-9,10); ° has won the right line 

TITAN!I";:60T08700 

G. Butler 
Amherst, NH G 



CALENDAR 



September 1-3 

Indiana Computer Expo (ICE) 
Indianapolis Convention Center, In- 
dianapolis, IN 

This exposition will feature exhibits of 
computer software and computer-related 
materials and services. 
Contact: Ernie Kerns and Associates, 
Suite 201, 2555 East 55th Place, In- 
dianapoHs, IN 46220, (317)259-8111. 

September 11-12 

New Jersey Microcomputer Show and 
Fleamarket 

Holiday Inn North at Newark Interna- 
tional Aiport, Newark, NJ 

This show will include over 50 commercial 
exhibitors and 200 fleamarket sellers. (The 
computer fleamarket will be held indoors 
in case of rain.) Featured will be hard- 
ware, software, and accessories for all 
popular systems, including Apple^"^, 
TRS-80®, ATARI®, Pet™, Heath/Zenith, 
ZX-80/81, S-100, IBM® and others. 
Contact: Kengore Corporation, 3001 Rte. 
27, Franklin Park, NJ 08823, 
(201)297-2526. 

September 16-19 

Applefest/Minneapolis 

Minneapolis Auditorium and Convention 

Hall, Minneapolis, MN 

September 16-19 

Applefest is a conference convention and 
exposition. The exposition features Ap- 
ples'""^ and Apple^"^ compatibles including 
computers, software, peripherals, ac- 
cessories and publications. Admission is 
$5 for adults. 

Contact: Northeast Expositions, 822 
Boylston Street, Chestnut Hill, MA 
02167, (617)739-2000. 

September 23-25 

Computer Showcase Expo 

New York Coliseum, New York, NY 

September 30 — October 2 

Computer Showcase Expo 

Brooks Hall, San Francisco, CA 

Computer Showcase Expos are a series of 
regional public shows for entry level com- 
puterists and users of small business and 
personal computer systems. 
Contact: The Interface Group, P.O. Box 
927, 160 Speen Street, Framingham, MA 
01701 (617)879-4502. Outside 
Massachusetts, (800)225-4620. 



If you or your organization are 
sponsoring or know of an event you 
think would be of interest to Soft- 
Side readers, please send complete 
information to: 

SoftSide Publications 
Calendar Editor, 
6 South Street, 
Milford, NH 03055. 

Be sure to include complete infor- 
mation concerning dates, location, 
subject matter and a contact name, 
address, and phone number. Q 
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You could win a FREE 

SoftSide DV or CV 

Subscription! 



SoftSide's Translation of the Month has been so well received by our 
readers, we're offering a greater author incentive than ever before. No, we 
can't give you a job at the U.N., but we will award a one-year subscription 
to SoftSide DV ox an 18-month subscription to SoftSide CV for a high- 
quality translation of one of our past programs. That's a value of $125 for 
the Disk Version or $1 12.50 for the Cassette Version — you'll be rewarded 
every month for your translation efforts! 

Here are some of the most important qualifications we look for in a 
translation winner. 

Your entry must be a translation of one of the featured programs from a 
past issue of SoftSide. (We're particularly interested in Apple^"^ and 
ATARI® translations of some of our older TRS-80® only issues. Write for a 
list of suggested candidates.) In general, we're looking for translations of 
programs which are a CHALLENGE to translate. Some of the programs we 
publish are written in more or less "generic" BASIC, which can be typed in- 
to another computer with very few changes. Although these programs re- 
quire the least effort to translate, they are also the least likely candidates for 
contest winners. 

Your translation should be thoroughly tested and completely bug-free. 
Just converting program lines doesn't automatically ensure a workable 
translation. Be sure to use-test your translation as carefully as you would 
test a program you had written entirely from scratch. 

Your translation should fully utilize the unique features of the computer 
for which it is written. The objective of a translation is to "fit" the capabil- 
ity and convention of its host computer, not simply mechanically duplicate 
the operation of the original program. This is especially true of programs 
whicii use graphics, and should be kept in mind for such minor features as 
keyboard layout (use of such special keys as arrows, ESC, CTRL, CLEAR, 
etc.). Also be careful with screen formatting; a word that spills over into the 
next hne because of a PRINT statement that wasn't properly rewritten 
betrays such carelessness that we'll probably reject your translation 
automatically. 

Your entry should incorporate any improvements and enhancements you 
can add to the original program. Don't feel that you have to limit yourself 
to the boundaries of the original. (On the other hand, don't go overboard 
and destroy the character of the original by completely rewriting it!) An 
enhanced translation is much more likely to catch our attention than a Une- 
for-line duplicate, and it will have more value to our readers. 

It's not necessary to include extensive documentation with your transla- 
tion, only that which is different from the original. If most of the originally 
published documentation applies to your translation, simply say so. You 
should, however, include descriptions and explanations of any changes or 
enhancements you've made. 

All Translation Contest entries must be submitted on disk or tape, with 
documentation in printed or typed form. Media will be returned only if ac- 
companied by a self-addressed, stamped envelope. Send your entries to: 
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Translation Contest 
6 South Street, Milford, NH 03055 
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EVERYONE'S 

TALKING ABOUT 

EdCom.'82 



The unparallelled opportunity to expand your 

skills and knowledge at all levels and areas of 

interest in computer education. 





OCTOBER 21, 22, 23 and 24, 1982 
LOS ANGELES CONVENTION CENTER 



'^>^ 

■*»*" 



EXPLORE the largest educational computer showcase ever offered 



SELECT from more than 350 hours of sessions presented by internationally known speakers from 
across the country who will address, evaluate, analyze, and share the phenomenal 
developments of computers in education. 



GARY BITTER - K-12 Curriculum 

NICK BOHL - Acquisition Funding 

G. R. BOYNTON - University Applications 

HUGH BURNS - Creative Writing 

DAVID BYRUM - Science Education 

JUDY CHAMBERLAIN - Strategies for the Gifted 

SYLVIA CHARP - Past and Future of Micros 

JOHN CHILDS - University Research and Management 

BETTY COSTA - Computerize Your Library 

CHASE CRAWFORD - Managerial Uses 

SANDRA CUNNINGHAM - Elementary School Literacy 

DAN DAVIDSON - Community College Applications 

MARVIN EBBERT - Telecourses in the University 

JUDY EDWARDS-ALLEN - Applying Evaluation Procedures 

BOB ENENSTEIN - Administrative and Classroom Management 

WILLIAM ENGEL - Instructional Computing 

LEROY FINKEL - Business Education 

MARYLYN SUE FORD - K-8 BASIC Programming 

CAROLYN GILBREATH - Support Services for Teachers 

BOBBY GOODSON - Districtwide Training for Literacy 

RICHARD HARTNESS - Hardware for the Blind 

DAN ISAACSON - Courseware Creation 

MAX JERMAN - Program Design 

DEE LAMONT JOHNSON - Special Education Software 

ROBERT JUDD - Simulations 

KENT KEHRBERG - MECC's Statewide Plan 



TOM KELLER - Hardware Evaluation and Acquisition 

RONALD LEMOS - Acquisition of Resources 

JOHN LOSSE - Mathematics in Higher Education 

ANDREW MOLNAR - Is Education Keeping Pace? 

DAVID MOURSUND - Computer Literacy Without Computers 

TED PERRY - Authoring Systems 

JIM POIROT - Training the Teacher 

M, D. ROBLYER - Reviewing the Reviewers 

TERRI ROSEGRANT - Reading Readiness/Special Education 

BARBARA SADOWSKI - Software Modification 

ERNEST SAVAGE - Vocational Curriculum 

DAVID SHARPE - Authoring Systems 

GARY SHELLY - Business Education 

TWILA SLESNICK - Policy and Curriculum Trends 

VICKI SMITH - Search lor Software 

RANDALL STICKROD - Creative Uses of Graphics 

KATHLEEN SWIGGER - Preschool Software and Research 

JOHN UNDERWOOD - CAI Strategies 

KATHY VOGT - Pascal Workshop 

WILLIAM WAGNER - County Van Project 

GEORGE WATSON - Word Processing 

J. FRED WEAVER - Mathematics CAI 

JERRY WILLIS - Testing and Diagnosis/Special Education 

JAMES WINEBRENER - Educational Software Evaluation 

KARL ZINN - Applied Research in Higher Education 

AND MORE! 



MlcroCourses and Hands-On Sessions Will Feature 



TRS-80 



PET 



APPLE 



ATARI 



IBM 



Tl 



Authoring • Programming • Word Processing • LOGO • Management • Graphics 

ATTEND EdComr^82 

EXPERIENCE THE EDUCATIONAL EVENT OF THE YEAR! 

CO-SPONSORED BY EDUCATIONAL COMPUTER MAGAZINE 



EdCom '82 

LOS ANGELES CONVENTION CENTER 

October 21-24, 1982 
CONFERENCE & EXPO REGISTRATION INFORMATION 

PRE-J^EGISTRATION : Please complete the form below as you wish it to appear on your name tag. 
Check the appropriate "Registration Fee" box below. After October 1 , 1982 , On-Site re g istration onl y 

(One day or full conference fees include admission to the exiiibits] 



PRE-REG 

DCF - Full Conference ' $125.. 

D LA — Full Conference + 1 Luncheon $140. , 

D LB — Full Conference + 2 Luncheons $155. . 

D CO- One Day Conference $45 . . 

D LC — One Day Conference + 1 Luncheon $60 , . 

D LD — One Day Conference + 2 Luncheons $75 . , 

DEO - Exhibits Only (Four Days] $10.. 

D LE - Exhibits Only + 1 Luncheon $25 . . 

a LF - Exhibits Only + 2 Luncheons $40 . . 



ON-SITE 
REG 

.$140 
.$155 
.$170 

. $55 
. $70 
, $85 

. $10 
. $25 
. $40 



STUDENT REGISTRATION : (Currer^t Studer^t ID Required) 

D SF - Full Conference $55 $60 

D SO - One Day Conference $20 $25 

DSE - Exhibits Only (Four Days) $5 $5 

DLG- Friday Luncheon $10 $10 

DLH - Saturday Luncheon $10 $10 

If you have registered above to attend one or both of the EDUCATOR IMPACT LUNCHEONS, please indicate 
your choice of day(s) here: 

n LI - Friday Luncheon -ANDREW MOLNAR D U - Saturday Luncheon - SYLVIA CHARP 

n TO — I am interested in receiving information on the full and half day hands-on MicroCourses. An 
additional $25 registration fee will be charged per half day session. Enrollment is limited. 
D UC —Please send me information on the university credit(s) available at California State University, 
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My registration check for the amount of S is enclosed. 

Make checks payable to Judco Computer Expos, Inc. 
Moil to: Judco Computer Expos, Inc. 
RO, Box 963 
Scottsdale, AZ 85252 
For further information call: 800-528-2355 Toll Free (Outside Arizona) 
602- 990 - 1 7 1 5 (Arizona Only) 



In the event cancellation is necessary, your written request for refund will be 
tionored if received by October 1 1982. A $15 tiondling fee will be ctiarged. 



EdCom '82 HOTEL HEADQUARTERS 
Los Angeles Hilton 

Special Conference Rates: 

Single... S65 Double/Twins,,. S80 

(one person) (two persons/twins) 

□ Al — Please send additional accommodation information, 

EdCom '82 CAR RENTAL 

Special Convention car rental rates have been arranged with 
HERTZ, Call 1-800-654-2240. 

Give the agent the special rate code; EdCom '82 Discount 
ID*90038. 



SAVE AS MUCH AS 42% ON YOUR AIRFARE OVER REGULAR ECONOMY FARE 
FROM YOUR HOME CITY ROUND TRIP TO LOS ANGELES. 



FROM: 
Atlanta 


Regular 

Economv 

Fare 

S728.00 . . . 


Special 
Meeting 
Fare 
. . . $524.00 
. . . $358.00 
. . . $360.00 
. . . $156.00 
. . , $230.00 
. . .$310.00 
. . . $338.00 
. . . $360.00 




Regutai 
Economy 

Fare 
$708 00 


Special 
Meeting 
Fare 
. . $504.00 
. . .$136.00 
. . .$398.00 
. . .$194.00 
. . $210.00 
. . .$134.00 
. . .$298.00 
. . $420.00 


San Francisco . . 
Ptiiladelphia . . . . 
Salt Lake City . . 


$218.00 , . 

. . . .$470.00 . . 
. . . $320.00 . . 


Chicaoo 


£600 00 


Dallas 


$290.00 . . . 










New York . . . . 
MobilR 


$620.00 . . . 

$770.00 . . . 


Kansas Cily 


$620.00 . . 

$700 00 







Above are sample fares. Special Meeiing fare is available from mosi cities iliroughoui ihe U.S.A. Garber 
Travel, official Ed Com travel agoncv, guaiantees !lie lowest possible airfares will be utilized. 
Under current fegulations, air fare increases will not apply lo tickets issued before the effective date of tfie 
increase. Tickets will be issued upon receipt of full payment. 
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I 1406 Beacon St., Brookline. MA 02146 
ER TRAVEL Call toil free outside Mass.: 

(8001 225-4570 - Request ED COM Desk 



TRAVEL VIA # UDITED AIRLIHES 







SRI LANKA 
IMPORTS 
AT THE NCC 



by David D. Busch 



Editor's Note: There were some 
very serious product an- 
nouncements made by major com- 
panies at this year's NCC (see page 
22). In contrast, we thought we'd 
share this humorist 's postulation on 
some not so serious products from a 
not very major company. 



I was surprised at the sparse atten- 
dance at the Sri Lanka Imports' (SLI) 
booth at the National Computer Con- 
ference in Houston last June. A 
number of sensational products were 
introduced, including the firm's 
dynamic ROM, and the 68FF com- 
puter chip (the world's first 19-bit 
microprocessor). I attribute this lack of 
attention more to the poor location of 
SLFs booth at the event (a Galveston 
warehouse) than any lack of merit in 
the products themselves. 

Sri Lanka Imports is, of course, a 
fictitious Asian supplier of space-age 
computer products that range from 
dumb terminals to dumb software. The 
firm, once distributed exclusively by a 
U.S. importer who shall remain 
nameless, has discarded its TRS-80®- 
only poHcy. It now encompasses a 
complete product hne for Apple^"^, 
ATARI®, Pet™, and Sphere™ 
microcomputer users, and has prom- 
ised new applications packages for the 
North Star™, Ohio Scientific™, and 
Cray^*^ systems. SLI also hopes to 
become the world's leading supplier of 
Space Invader games for the PDP/1 1 . 
J4 



Given the innovative nature of these 
new SLI products, it is easy to see why 
the fictitious firm has risen to obscurity 
almost overnight. Because of the low 
turnout at the S£/ booth at NCC (I was 
the only person to stop by in more than 
three days), you are not likely to read 
reviews of these products in any other 
magazine. I'd suggest that you check 
out the following brief descriptions 
very carefully. 

One of the most interesting items 
was the SLI "modem on a chip," 
which they have dubbed the Load 'Em 
Modem. This is an ILSI (Inconceivably 
Large Scale Integration) chip that 
somehow packs autodial, autoanswer, 
autowrong number, and autosugges- 
tion features into a single component. 
Because the chip measures a largish 6 X 
10 X 2 inches, it probably will not be 
incorporated into many microcom- 
puters in the near future. Look for an 
outboard expansion module which will 
combine modem and cable-ready 
remote video tuning into a single unit. 

I was impressed with the multiple 
baud rate capabilities of the Load 'Em 
Modem. When powered by a conven- 
tional 110 volt supply, the device com- 
municates at 1 10 baud. To obtain 300 
baud, you must supply 300 volts. This 
should be a simple matter for anyone 
who knows their way around a 
transformer. Because the modem is a 
single-chip device, SLI deemed this a 
simpler solution than using expen- 
sive DIP switches which must be pro- 
grammed by the user. 

I must caution you against carrying 
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this technique to its logical conclusion. 
Although 9600 baud communication is 
practical with the unit, stepping up a 
power supply to nearly 10,000 volts can 
be mildly dangerous unless you know 
exactly what you are doing. 

I have some other tips about the 
modem, involving the IEEE-488 bus 
and use of the device with Princess 
telephones. However, I will save these 
until after the product is being shipped 
nationally, and I get some feedback on 
whether or not most buyers are surviv- 
ing the baud setting procedure. 

The Load 'Em Modem is possibly 
the first "intelligent" modem on the 
market. A built-in 68FF micropro- 
cessor chip examines the incoming data 
stream, and attempts to determine 
what protocols are being used. When 
the modem is satisfied that it has made 
an intelligent guess, it sends a signal to 
the terminal program which tells the 
computer what protocol is ap- 
propriate. Unfortunately, no terminal 
software on the market today is written 
to interpret this signal. 

More commonly, the Load 'Em 
Modem will simply over-ride your 
CPU and handle all communications 
through its own microprocessor. This 
feat is a breathtaking technological 
achievement, and a bit frightening at 
the same time. Using the Load 'Em 
Modem, it is only possible to discon- 
nect communications when the modem 
is good and ready. 

SLI is also ready to tap into that vast 
market of home computer users who 
find that the $99.00 asked by Timex for 



their disposable computer is too pricey. 
For those who want to spend, say, 
$29.95, Sri Lanka Imports has the 
answer! If you can't afford a real com- 
puter, simulate one in software. 

Emulation is a very popular tech- 
nique, as main frame and mini 
developers know. SLI has introduced 
its Computer Simulator/Trainer. The 
operator simply takes any ordinary 
cassette recorder, a television set, a 
typewriter (or plastic keyboard which 
you make yourself, if you want to 
simulate an RCA terminal or a Sinclair 
computer) and connects them with the 
ribbon cable supplied. 

Then the "student" may sit down in 
front of the "CRT," type programs on 
the keyboard, and save them to 
cassette tape. I should point out that 
what you actually see on the screen will 
be garbage, your program "dumps" 
and "loads" will be valueless, and 
most of your typing time wasted. In 
other words, this is a VERY reaUstic 
simulation of a new user's first few 
sessions with a computer. 

This approach seems very logical to 
me. Most new programmers do not 
turn out software that has any real ap- 
pHcation for at least six months. Cer- 
tainly, putting together your own 
"Hangman" program is an excellent 
way to learn BASIC. But would you 
actually want to run or save such an 
early effort? 

SLFs Computer Simulator offers 
other significant advantages. Media 
cost is very low: a single cassette tape 
may be used indefinitely. A high qual- 
ity monitor or television is not re- 
quired. The system may be connected 
to any available TV (which can double 
as an entertainment source while 
programming), oscilloscope, or card- 
board box with a screen drawn on it. 
With the latter choice, users have 
reported that radiation exposure is 
remarkably low, and eye fatigue 
almost non-existent. 

Look for this product, along with 
other trainers, such as Disk Drive Sim- 
ulator, Printer Substitute, and Ersatz 
Software, at your local computer store. 

Erasable Read Only Memory 
(EROM) and Erasable, Programmable 
Read Only Memory (EPROM) are old 
hat. Sri Lanka Imports has announced 
something they call "Dynamic ROM," 
an outgrowth of the company's 
research into soap bubble memory. 

The chief difference between 
Dynamic ROM and other types of 
erasable ROM is that the SLI product 



was unintended. A company researcher 
was looking for a way to correct some 
errors in 103,000 old Pet™ BASIC 3.0 
ROM's that the firm had found in a 
trash can. Through a complicated 
series of procedures (a trade secret, 
by the way), he managed to invent the 
Dynamic ROM, which must be re- 
freshed every few nanoseconds, or else 
it loses all of its information forever. 

These Dynamic ROM's are currently 
being used only in SLFs line of One 
Time Software, in plug in ROM pacs 
for the TRS-80® Color Computer, the 
Sorcerer™, and ATARI® 400 and 800. 
For a modest fee, the user receives a 
game, utiUty, or applications program 
that can be run for just one session. 
Once the computer is turned off, the 
dynamic ROM loses the program and 
becomes useless. 

SLI spokespersons have pointed out 
that most computer software on the 
market today is so bad that the average 
user will run it just once, become 
disgusted, and never use that program 
again. The One Time Software line was 
designed with that owner in mind. 

Sri Lanka Imports has asked me to 
pass along a few tips to those of you 
who have already purchased ULTI- 
ZAP, a disk utility. Most of the com- 
plaints have come from unhappy Ap- 



ple I™ and Apple II -I- ™ owners. 
SLI's advice is as follows: 

1) The Apple F'^ is hopelessly out- 
dated, and should not be used with 
ULTIZAP. In fact, we know several 
people who are very interested in where 
you got your Apple I^"^ in the first 
place. 

2) ULTIZAP works only with TRS- 
80® and similar computers. Apple^*^ 
owners will have some difficulty 
booting the disk. But then, after DOS 
3.2, 3.3, 13 and 16 sector disks, muf- 
fins, and who knows what else, you 
probably won't even realize that 
anything different is happening. 

3) ULTIZAP is NOT designed to 
remove parity errors entirely. It only 
moves them around. If an operator has 
a defective sector with a parity error 
that makes a program unusable, the 
utihty will move the parity error to a 
program that is not needed. It is doubt- 
ful that this would be of much more 
use to Apple F"^ owners in any case, as 
the unit required a certain number of 
parity errors per sector to operate 
properly. 

I must welcome SLI as a true 
digressor in the microcomputer in- 
dustry. Sri Lanka Imports, bringing 
yesterday to you tomorrow. © 
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' 'HI, HILDA —I'M HOME! BRING MY DINNER TO ME AT 
THE COMPUTER!" 
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SoftSide DV, the magazine 
of the future, is here! 



If your computer could pick a 
magazine, wouldn't it prefer one 
in its own language? Now 
there's one available. . • t 

SoftSide DV . . 

is an enhance- * 

ment of the » ' . 

SoftSide . *"^ ' * 

you have 
in your 
hands. 



SoftSide DV contain^ 
not only the complete* 
programs listed in ' . 
every month's issue of . , 
SoftSide, but additional "^ 
programs of every 
conceivable type, as well 
— multiple and Machine 
Language programs, modified ,^, 
languages, ongoing ' ", 

modular programs and software 
so extensive, it would take an . ."' 
entire issue of SoftSide just to » 

print the code. Only the *'" ~'^ 

"documentation for these programs ••• . ' 
will appear in SoftSide Magazine, « 
NOT the code. ' "/' ,»^' 

Feel as though you're missing r •> .. 

something? You are! But, you needn't 
miss out on another issue. SoftSide ' . ...^ 

DV is now available for Apple™, '. . 

Atari™ and the TRS-80™. The cost to ,. "* 

you — $125 for 12 magazines and 12 -•v 
disks, packed with some of the best •'■ " 

software available, all delivered to your • . 

home in the next year. For orders outside 
. the USA, please add $36. For your 
convenience, we offer an installment payment 
plan for VISA and MasterCard holders: You pay 
only $32.50 per month for four months (a total of $130, ' 
which includes a $5 billing charge). Please use the 
special DV-CV bind-in card in this issue to order. 

Computerists are offered the rare opportunity of 
marching into a new frontier. Advance to the front of 
the parade by subscribing to SoftSide DV, the magazine 
of the future, available today! 




A FEW 
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FROM... 



For 5 extra points, what's wrong with this program line: 
FOR 1 = I TO 100 




Don't get upset if you had to look twice (or three times) 
to see the problem. Most folks do, and that is precisely my 
point. We have gotten into the habit of using, as our 
most popular variable name, a letter which looks just 
Hke our most popular digit. 

This despicable habit is a remnant of the good 
old days of FORTRAN. In FORTRAN, the letters 
"I" through "N" stood for integer 
variables. Since loop counters are integers, these 
letters were heavily used to manage DO loops 
and the hke. Naturally, the letter 
"I" got used more than others because it was the 
first in line. The fact that "I" was repeatedly 
elected Most Popular Variable would have 
been totally irrelevant were it not for the fact that "I" looks much like "1". 

A similar identity crisis existed between "O" and "0". Although "O" was not nearly so popular as 
"I", it gained a certain notoriety due to well-intentioned efforts to clearly distinguish it from "0". It 
was noted that "0" and "O" did not look at all alike if a slash were drawn through one or the other. 
Of course, no one could ever agree on which should be slashed. It didn't really matter, as the slashed 
"O" (or "0") could also be misread as a "B" or an "8" if your monitor or printer were at all blurry. 

As new languages were written and new computers were built, many new programmers began to 
learn the trade. Naturally, they learned from other programmers. Thus, whole new generations of pro- 
grammers learned how to confuse "1" with "I", and "0" with "O". The problems caused by this 
practice were clearly recognized, and wise programmers avoided the use of "I" and "O". Old habits 
die hard, however, and, for every programmer who shunned the evil "I", there were 647 who used it 
with abandon. 

Now, the magnitude of the problem makes it a true area of concern. Back when there were only a 
handful of programmers, the confusion of "I" and "1" or "0" and "O" did not cause any 
measurable loss. Now, however, there are veritable armies of programmers at all levels tapping away at 
terminal keyboards and the lost time is adding up. This lost time is especially painful to people who try 
to earn a living with their software because time is money to them. When a user misreads a printed line 
and his program doesn't work, the resulting customer service call costs money. When a programmer 
spends time tracing a virtually invisible bug, his company loses money. There is real motivation here to 
cut the loss by improving technique. 

The simplicity of the problem and the scope of its effects make it very profitable to cure. There is no 
need to learn a new, more efficient language. There is no need to learn new programming procedures. 
All we have to do is use variable names that don't look like numbers. It certainly behooves authors 
who submit programs for publication to show this mercy upon the software editor who will review it 
and the eventual user who will make it run. 

The simplicity of the problem also makes it shameful that nothing has yet been done. We must 
begin now. We must each take a stand. Even as non-smokers feign emphysema and asthmatic attacks 
to dissuade smokers, we concerned programmers must bring subtle pressure to bear on our misguided 
colleagues. It is time for each of us to stand up and say, "This stubborn clinging to old programming 
habits is inexcusable and I, for one, WILL NOT STAND FOR IT." O 
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ANATOMY OF AN 
ADVENTURE 



by Peter Kirsch 



Editor ^s Note: Peter Kirsch is the 
author of most of SoftSide's Adven- 
ture of the Month series. His 
background in adventure construc- 
tion is extensive as, on a monthly 
basis, he creates an original adven- 
ture and translates it to two other 
systems. 



Have you ever wanted to slay a 
dragon, match wits with Jack the Rip- 
per, explore deep and dangerous 
regions of space, or go on a fantastic 
treasure hunt? Playing a game of 
adventure will allow you to do all these 
things and more, without leaving the 
comfort of your home. An adventure 
lets you escape life's doldrums, forget 
your worries and cares — even the 
thought of an impending visit from 
your mother-in-law. 

Adventure construction is an ex- 
tremely challenging art. In this article, 
I'll try to explain how I construct an 
adventure, from the initial idea to 
play testing the final version. I'll also 
explain various techniques used in 
translating TRS-80® adventures to the 
Apple™ and ATARI®. 

The Idea 

The primary stumbling block to 
creating an adventure is developing a 
good idea. The days of simply finding 
treasure and returning it to a storage 
location are gone forever. An adven- 
ture should be original and have a 
unique quest. Most of mine have a 
basic storyline, which a player 
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discovers through exploration. I've re- 
jected many ideas due to lack of good 
plot or limited subject matter. 

Once you have an original and ex- 
citing plot, it must be further 
developed. At this point, I draw bits 
and pieces of various adventure maps, 
trying many configurations to get that 
perfect layout. Tentative puzzles and 
hazards are also jotted down. When 
I'm satisfied with what I have, I put my 
drawings and notes together and create 
a final version of my adventure map on 
a giant piece of heavy paper. All loca- 
tions are numbered and any last minute 
changes, additions, and deletions 
made. (Changes might still be required 
during actual programming due to 
memory limitations. For example, my 
Titanic Adventure, as originally writ- 
ten, ran over the allotted memory and 
some locations and related puzzles had 
to be eUminated.) 

The Adventure Skeleton 

Early in my adventure writing 
career, I created an adventure inter- 
preter, or skeleton, as I call it, to serve 
as the backbone of each of my adven- 
tures. It has since been updated many 
times (now at version 4), but basically 
remains the same tool. With the 
skeleton as a base, only data and sub- 
ject matter pertaining to the particular 
adventure need be added, saving a 
great deal of programming time. The 
skeleton consists of: room allocation, 
initialization, display routines, input 
commands, command routines, and 
data allocation. (See line listing follow- 
ing this article.) 

My original adventures are created 
on a TRS-80®, then translated to the 
Apple^'^and ATARI®. As I explore 
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each section of the skeleton, I'll discuss 
the differences in the various 
machines, and how each handles the 
same routine. The string handhng of 
the ATARI® is a prime example, but 
Applesoft, which, in fact, is a version 
of Microsoft BASIC, has just as many 
variations. ATARI® BASIC has some 
added "goodies" that the others lack, 
not to mention easily accessible colors 
and sounds which can enhance an 
adventure. Most of the discussions per- 
taining to the TRS-80® will pertain to 
the Apple^^ as well. Any significant 
changes will be noted. 

Imagine, now, that I've got my large 
adventure map in front of me. I need 
to transfer my ideas from map to 
skeleton. First, I put all room descrip- 
tions at the top of the program and any 
visible exit represented on that line by a 
single or double variable (W,N,E,S,U, 
D,NW,NE,SW, or SE), set to its new 
location number. Room lines are 
numbered by I's to make them easily 
accessible by an ON A -I- 10 GOTO line 
# statement where A is the current 
location. The use of low line numbers 
also helps prevent breaking the state- 
ment into two or more hues, since as 
many as 75 Hne numbers could possibly 
follow. An excellent feature of 
ATARI® BASIC is the use of variables 
as data pointers. A simple GOTO 
A + 10 does the trick. 

Near the end of the program are the 
data lines. These include objects, ob- 
ject locations, verbs, and correspon- 
ding verb numbers. These are initially 
read into A$(x), A(x), B$(x), and D(x) 
respectively. Depending on the par- 
ticular adventure, there may be addi- 
tional data. 

Ah, the problem with the ATARI®. 
Since ATARI® BASIC does not 




support string arrays, all objects are 
read into a single, large string, A$, and 
have additional spaces appended to 
make them all the same length. When 
called for, an object will be accessed by 
its position within the string. ATARI® 
BASIC does this with the following 
line: 

210 FOR A = l TO 40:A$(A*SZ- 
SZ + 1 ,A*SZ) = SZ$:READ X$: 
A$(A*SZ-SZ + 1 ,A*SZ) = X$: 
NEXT A 

Let's say there are forty objects in 
the game. SZ$ first fills and clears that 
segment of the string with spaces. The 
object, X$, is then read into that posi- 
tion. Variable A marks its position 
within the string, and SZ, the length, 
including spaces. 

It may also be necessary to change 
an object into another object at some 
time. For example, DOOR might 
become OPEN DOOR, or BANANA 
could evolve into PEELED BANANA. 



This is no problem if using string ar- 
rays, but in the ATARI®, A$(xl,x2) is 
used, where xl is the starting position, 
and x2 the ending position of an ob- 
ject. In essence, this has the same func- 
tion as the MID$ statement in 
Microsoft BASIC and Applesoft, but 
ATARI® BASIC also allows you to use 
it on the left side of the equation. 

The current location of each item is 
held in A(x). If an object cannot 
physically be carried by a player, it is 
preceded by a minus sign. Location 
numbering starts with 5, since the 
lesser numerals are used as follows. If 
an item is carried, it's assigned a -1, if 
worn, a -2, and if ridden, as in the case 
of a horse, a -3. If an object is not yet 
in play, out of play, or used repeatedly, 
such as TREES in a forest, at many 
locations, it's assigned a 0. 

The display routines are basically the 

same in all translations. I make further 

use of the ATARI® 's colors to visually 

enhance an adventure. Background 
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colors are used to set the mood of some 
locations: green for grass, a rich blue if 
you're on or beneath water, and 
perhaps a dull red for an eerie castle 
setting. The normal background color 
is black. 

When a player issues a command, 
array B$(x), or string B$ in 
ATARI® BASIC, is scanned to see if a 
matching verb is found. If not, the 
computer will tell you that it doesn't 
understand you and branch back for 
another player input. Array D(x) holds 
a corresponding verb number, which 
allows the use of synonyms for the 
same command, such as GET and 
TAKE or DROP, PUT and GIVE. 
This number will then be used to 
branch to the proper command section 
in the program. 

The TRS-80® and Apple™both look 
at the last three letters of the object 
command to see what the player wants 
to do. This also alleviates some of the 
annoying keyboard bounce in the 
TRS-80®. In ATARI® BASIC, 
however, this method won't work since 
all objects have been padded with 
spaces. The first three letters are 
recognized instead. This also presents a 
need to specify the necessary three let- 
ters in front of an object in the data 
statements. LITTLE RED BRICK, for 
example, is Hsted as BRILITTLE RED 
BRICK. This will usually be necessary 
only when using the GET and DROP 
commands. 

There are usually ten to twenty dif- 
ferent commands in my adventures. 
Each command has a different section 
in the program. When a proper com- 
mand has been entered, logic shifts to 
the proper section, depending on the 
verb number, to determine if it makes 
any sense. If it does, and all conditions 
have been met, (there are usually 
many), then the proper action is taken. 
All else defaults to "You can't do 
that." 

This completes the basic adventure 
outline. Of course, each adventure will 
have its own logic and special features. 
Frequent use is also made of sound ef- 
fects in the ATARI® versions. Sounds 
are added, such as explosions, gun- 
shots, vehicles, running water, wild 
geese, and things-that-go-bump-in-the- 
night. There's even a small sound 
routine in the ATARI® version of 
Robin Hood Adventure which 
simulates an arrow slamming into a 
target. 

1700 V3= 15 TO STEP -l:SOUND 
l,77,6,V3:FOR V4=l TO 5:NEXT 
V4:NEXT V3 
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Playtesting and Debugging 



If you think you're done with an 
adventure once the code is completed, 
think again. Playtesting and debugging 
an adventure are as much a part of the 
process as the actual writing. That 
brings us to the editing capabilities of 
the various computers. The ATARI® 
has, by far, the easiest editing. The 
TRS-80® is next in line, and the Ap- 
ple™ is a distant third. The joy of 
editing with the ATARI® stems from 
the fact that program continuation is 
not halted once a change has been 
made. This is a tremendous aid when 
debugging an adventure. You can con- 
tinue playtesting once a change or cor- 
rection has been made with all progress 
intact. Because of this feature, I cor- 
rect any bugs I find in the ATARI® 
version immediately. The TRS-80® and 
Apple^"^ don't have this capability. 
After any correction, you'll have to 
RUN the program again. Both the 
TRS-80® and Apple'^'^ will allow you to 
continue upon encountering an error as 
long as no change has been made. I go 
around any bugs I find for as long as 
possible, keeping a list of them on 
scrap paper, until there are too many, 
or a critical one pops up. A simple 
GOTO 300 will usually put me back in- 
to a working program. 

Another plus feature when editing, 
or even programming, with the 
ATARI® is the ability to change line 
numbers. Retyping over an old line 
number with a new one, and hitting 
RETURN, will add the new Hne to the 
buffer and still keep the old one intact. 
In essence, we now have two identical 
lines. If the old Une is no longer 
needed, it can be deleted. This feature 
is very handy when the need to shift 
lines arises while editing. It can also 
save some programming time when 
you need to repeat a line or create a 
nearly identical line with minor 
changes. 

As stated previously, the Apple's™ 
editing capability is nothing to write 
home about. It does have a screen 
editor, as does the ATARI®, but once a 
line is entered and listed, editing the 
format of the listing can become quite 
a chore, especially for novice program- 
mers. With practice, however, one can 
become quite adept. 

Debugging an adventure can be a 
time-consuming task. You can very 
easily spend a whole weekend looking 
for that one, elusive bug. Then, after 
you think you've found your last one, 
another will pop up. Believe me, I 
know! Doing translations is also a 
debugging aid. Errors will be less ex- 
tensive than in the original version, but 
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they will be there, and you'll probably 
find something you missed the first 
time around. 

Playtesting an adventure consists of 
three stages: initial run, thorough 
playtesting, and fine tuning. All my 
translations receive the same treatment 
as the original. My large adventure 
map is in front of me and a location 
tester, PRINT A, is temporarily added 
into the program which checks to see if 
you're in the proper room. 

Initial playtesting consists of run- 
ning through the adventure once in 
chronological order, doing exactly 
what's necessary when it's necessary, 
and nothing else. Any errors at this 
point are corrected, and when the pro- 
gram behaves exactly as it should, a 
grueling session of thorough 
playtesting begins. Every command is 
tested, with every combination of ob- 
jects in every conceivable and absurd 
way. Every possible message is also 
printed out. All responses from a 
player are considered. Any corrections 
will require further playtesting. 

The last stage of playtesting now 
begins. I'll check any routines I put off 
until later, such as making sure all 
possible ways that you can get killed 
work properly. Getting killed does not 
halt program continuation, as a rule. 
Typing GOTO 300 will reincarnate you 
before that fateful moment. Die-hard 
adventurers will not want to cheat in 
this manner, however. 

Translating an adventure to the Ap- 
ple^"^ and ATARI® is a bit cumber- 
some because neither BASIC has an 
ELSE statement. What would normal- 
ly follow on the same line on the TRS- 
80® may require several Hues with the 
others. Also, the THEN statement is 
not optional in Applesoft and 
ATARI® BASIC. Since I often use the 
variable A, care must be taken when 
using it immediately before a THEN in 
Applesoft. The Apple™will think that 
the BASIC keyword AT is impHed and 
space it as such. With the Apple™, 
the variable A must be enclosed in 
parentheses. 

During the programming of an 
adventure, it is a good idea to 
periodically save the progress of your 
labors to cassette or disk — every 30 
minutes should be sufficient. In the 
event of a sudden power failure, or 
when your ATARI® locks up for unex- 
plainable reasons, as has happened to 
me on several occasions, you won't 
loose too much programming time. 
The rate at which the ATARI® 
CSAVES and CLOADS almost 
justifies the purchase of a disk drive, 
which is a necessity when doing any 
lengthy programming. I lose one or 
two hours of programming time per 
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day using a tape system. The TRS- 
80® has the CLOAD? verification of a 
CSAVE, and others should have this 
feature. This might prevent many pro- 
grammers' hair from prematurely 
graying, and their fingernails from get- 
ting short. 

Creating Puzzles 

A good adventure is well thought out 
and has a good plot with plenty of sub- 
ject matter. Puzzles should be hard, 
but not impossible, to solve. I'll ex- 
plain some of the ways which puzzles 
can be implemented. 

Walking through a forest one day, 
you come upon a car. The ignition key, 
however, is nowehere to be found. 
Walking further, you discover a grizzly 
bear sitting under a tree, playing with 
what looks like the missing key. For- 
cible retrieval is not recommended. 
You look up, and see a beehive in the 
tree above the bear. There's a rock! 
You pick up the rock and throw it at 
the beehive. You watch as a swarm of 
bees chase the fleeing bear, who drops 
the key in his panic. Throwing the rock 
at the bear would have angered him 
and probably meant your demise. In 
this case, you would be asked at what, 
specifically, you wish to throw the 
rock. 

Sometimes, an obstacle may be in- 
surmountable — placed there just to 
throw the player off the track. You 
may spend hours trying to find a way 
to enter a certain building, when, in 
reaUty, it's just part of the scenery. 
There may also be some pitfalls from 
which a player is unable to recover. For 
example, don't enter a deep hole 
without a long rope tied to a post on 
the surface. Don't forget the ever- 
popular flashlight. Don't eat an item 
of food not meant for your consump- 
tion. If you do, you'll never get past 
that nasty, grinning dwarf, blocking 
your way, who just loves apples. 

Some objects may have more than 
one use, so it's not wise to simply 
forget about an item, once used. A bot- 
tle, which you find floating in the 
ocean, may have a paper message in- 
side. This same bottle might be used, 
later, as a container to hold water. A 
third use might be as a cutting tool. 

With all of these steps completed, 
the adventure is finished. 1 make a 
dupHcate for backup use and mail the 
originals to SoftSide, along with any 
necessary documentation, including a 
complete solution sheet. 

Planning for my next adventure 
always begins long before the comple- 
tion of my last, and it's always dif- 
ferent and perhaps even harder to 
solve. 



*The following adventure skeleton line listing is NOT 
designed to run as is. It is presented as a reference tool 
for the preceding article and requires considerable ad- 
ditions in order to run as a complete adventure. 

SS SS ES SS SS S5 ss ss ss ss ss ss ss ss 
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TRS-80 Model I/III BASIC 
"ADVENTURE SKELETON" 
Author; Peter Kirsch 
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SS SS SS SS SS SS SS SS SS SS SS SS SS SS 

5 G0T0200 

10 0NAG0T00,0,0,0,15,16,17,ig,19,20,21,22,23,24,25,2uS27,2S,29,3 

0,31,32,33,34,35,36,37,30,39,40 

Room descriptions go here. Use of iines 15-40 is typical. 
(Note: The following lines with dots are not to be typed in; 
they represent lines to be typed in by the programmer when 
writing the adventure.) 
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nn ............. .,,,... 

The four mandatory DIMs. 

200 CLEAR!50;D!!1A$i43),fi(43),B*(25:iiD!25) 

Initialization. 

210 F0RA=0TD43:REAi)A*(A),A(A):NE.U:F0RA=lTQ25:READB$(A):NEXT;F0R 
A=11T025:READD(A!:NEXT 

Display routines. 

300 N=0:W=0:E=0:S=0:U=OiD=0:NW=0:NE=0!S|ii=0!SE=0:!(4=0:X5=0;CLS:P 

RINT'YOU'RE "i 

310 eOTOlO 

357 PRINT: IFN+W+E+S+U+D+N»+NE+SW+SE>0THENPRINT"S0t1E EXITS ARE: ' 

;:FORB=1T010:BIB)=0:NEXT 

360 IFHKiPRlNT" «EST"|!B(1)=W 

361 !FN>OPRINT" NORTH"; :B(2)=N 

362 IFEJOPRINT" EAST"i:B(3!=E 

363 IFSKiPRINT" SOUTH" i;6l4)=S 

364 IFUKiPRINT" UF";!B(5)=U 

365 IFDKiPRINT" D0WN";:B(6.l=D 

366 IFNWKiTHENPRINT" N0RTH«EST";:e(7)=NW 

367 IFNE>OTHENPRINT° NORTHEAST";:B(B)=NE 

368 IFSW>0THENPR1NT" SOUTHWEST"; :B(9)=SW 

369 IFSE>OTHENPRINT" S0UTHEAST";;B(10)=SE 

370 PRINT:PRINT 

375 FQRB=0TD43:IFABS(A(B))=ATHENC=Ctl:S0T0377 

376 NEn:PRINT:B0T0379 

377 IFC=IPRINT"VISIBLE ITEMS:" 

378 PRINT" ■A$(B):60Tn376 

Player input commands. 

390 ONERROReOTQ3000:C=0:!(4=0:X5=0:PRINT:PRINT"WHAT DO YOU WANT 
TO D0";:INPUTA$:PRINT:IFA$="L00K"THEN300 

Directional moves. 



393 FORB=1T010:IFA$=B«(B)THEN394ELSENEXT:60T0397 

394 IFB(B)<>OTHENA=B(B):BOTO300ELSEPRINT"Y0U CAN'T MOVE THAT WAY 
.":GDT0390 

397 IFA$<>"rTHEN400ELSEPRINT"Y0U ARE CARRYING: ":F0RK=0T010:IFAI 
C(K))=-2THENPRINT"WEARINB"ELSEIFA(C(K))=-3PRINT"RIDIN6" 

398 IFCfK)>OPRINT" "AJfCIK)) 

399 NEXT:BDT0390 

400 F0RB=11T025;F=LEN(B$(B)):IFLEFT»(A$,F)=B*(B)THEN450ELSENEXT: 
PRINT"DON'T KNOW WHAT "CHR$(34)AtCHR$(34)" MEANS. ■:B0T0390 

450 DJ=RIBHTilAt,ILENiA*)-F)-l):E*=RIGHT$(D$,3) 

"GET" command. 

452 !FD(B)<>1THEN490 

453 I=0:FORV=OTQ10:IFC(V)<>0!=I+1 

455 NEXT:IFI>6PRINT"Y0U CAN'T CARRY ANYMORE" :GOT0390 

463 F0RJ=0T043:IFE$=RIBHT*(A$(J),3)ANDA=ABS(A!J))THEN471 

464 NEXT 

465 PRINT'THERE'S NO "D$" HERE.":60T0390 

479 IFA(.])(OPRINT"THAT'S IMPOSSIBLE TO CARRY" :60Ta390 

480 FORK=1T010:IFC(K1=OTHENC(K)=J:AIJJ=-1:GOT05050ELSENEXT 

"DROP" command. 

490 IFDiB)<>2THEN600 

500 F0RJ=0TD43:IFE*=RIBHT${AtiJ),3)IFA!>!)<>-li 

O-3THEN505ELSE510 

505 NEXT 

510 F0RK=lT010:IFC(K)=JTHENCiK)=0:A(J)=0:G0T0514ELSENEXT 

513 PRINT'YOU'RE NOT CARRYING IT":G0T0390 

520 A!J)=A 

530 PRINT"0K!" 

590 S0T05100 

Rest of commands start here, a separate section for 
each. 



J)<>-2ANDA(J! 



600 



1000 PRINT"SORRY, YOU CAN'T DO THAT":G0T0390 

Subroutine for adding, deleting, or changing an 
Inventory Item. 

1100 FORK2=lT010:lFCiK2t=K3THENC(K2}=KO:A(i<3)=0:A!KO)=-l!60T0510 



1115 NEXT 

DATA In the format of object, Initial object location. 

2000 DATA , 

nnnn DATA 



DATA In the format of verbs. 

2100 DATA 

nnnn DATA 

DATA in the format of the matching verb number. 



2110 DATA 
nnnn DATA 



3000 PRINTAV WHAT?";RESUME390 

5000 PRINT;INpnT"HIT ENTER" ;A$:B0T0300 

5100 FORHI=1T02000:NEXT;GOT0300 

6700 PR I NT "THIS ADVENTURE 

IS DVER":END 



© 
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"In* 




GRID Systems Corporation's new Compass 
Computer 




The Commodore 64 



The 1982 



National Computer Conference: 
What^s A Mainframe? 

by George Blank 



As 100,000 people gathered at the 
Astrodome in June for the National 
Computer Conference, it was obvious 
that microcomputers had at least ar- 
rived, if not taken over, the show. Ap- 
ple was in the high status, center por- 
tion of the Astrohall, fraternizing with 
Texas Instruments, IBM, Xerox and 
DEC. All four of those companies 
were displaying microcomputers. 

Further out in the wings of the 
Astrohall were the Japanese; Toshiba, 
Hitachi, Epson, Sony, Panasonic, 
Sharp, NEC, Sanyo, Casio, Okidata, 
and others, all ready to pounce on the 
US market. 

Software developments at the show 
were not revolutionary. Almost every 
exhibitor was showing a something 
Calc, with prices from $50 to the 
stratosphere, and all advertising 
features not in VisiCak, such as the 
ability to print variable width columns. 
Every conceivable idea seemed to have 
been tried, executed in software, and 
copied by a dozen firms. There were 47 
entries in the show directory under 
data base management systems, and 
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I'm sure that the majority were not 
even Hsted. One trend was the increas- 
ing recognition of the value of color, 
with many good color graphics 
packages demonstrated, and im- 
aginative use of color in applications 
packages. UNIX was the "in" 
operating system of the show, par- 
ticularly on 68000 based computers like 
the Fortune 3216, which was also 
demonstrating spectacular color 
graphics. Microsoft was showing 
XENIX, their version of UNIX. 

For the computers covered by Soft- 
Side, the Apple^^"^, ATARI®, and 
TRS-80®, the news of the NCC was no 
news. ATARI® did not exhibit, prefer- 
ring to concentrate its efforts on the 
Consumer Electronics Show taking 
place in Chicago at the same time. Ap- 
ple had the same old models II and III, 
and the booth staffers either pretended 
ignorance or became rude when asked 
about "Lisa," the code name for the 
next generation of Apples. Radio 
Shack had nothing more recent than 
the Model 16 and the second edition of 
the Pocket Computer. 
SoftSide 



Commodore introduced a 64K 
memory version of the VIC, clearly 
aimed at the ATARI® marketplace. 
The price, at $600, is very aggressive 
and the color graphics abilities and 
other special capabilities are nice. 
Commodore had two other new 
machines at the show. They claim to 
have shipped more computers 
worldwide than anyone else, but with 
so many models, screen formats, and 
ROM changes, no single Commodore 
computer seems to have adequate soft- 
ware support. 

There was one significant new 
development in the clone category, 
with a TRS-80® software compatible 
computer introduced by Lobo. The at- 
tractive and aggressively priced Lobo 
Max 80 has a 5 megahertz Z-80 (more 
than twice as fast as the Model III), 
64K of RAM, built in expansion bus, 
printer port, two RS-232C serial ports, 
battery operated real time clock and 
disk controllers for all standard floppy 
disk drives as well as a hard disk 
interface. 

The Max 80 will operate under both 





Tandon Corporation's 48-TPI Floppy Disk Drives 



LDOS and CP/M, will allow software 
selection of a 24 by 80, 16 by 64, or 16 
by 32 character screen format, and 
comes with a 76 key keyboard with 
numeric key pad. The price of the com- 
plete 64K computer is $800, with a 
green screen monitor available for 
another $150. Disk drives are extra, 
but that can be as simple as plugging in 
a TRS-80® cable and disk drives, 
though Lobo has a line of 5 1/4 inch, 8 
inch and hard disk drives for the unit. 

Many companies were showing IBM 
products. Lobo introduced 8 inch disk 
drives. Personal Micro Computers a 
Hne of low cost peripherals, and many 
software companies that marketed 
TRS-80®, Apple™ and CP/M software 
were showing new programs, as well as 
new versions of old programs, for the 
IBM Personal Computer. MicroPro 
was showing WordStar in color on the 
IBM, and asking whether passers-by 
thought the color added to the value of 
the product. 

Tandon Corporation introduced a 
half height, low performance mini- 
floppy disk drive that it is selling to 
manufacturers for $50 (minimum 
order 10,000, please). We are certain to 
see this unit in several low end systems 



i pion America's HX-2() 



in the future, and one unconfirmed, 
speculative rumor has it that ATARI® 
will be using it in a personal computer 
with built in disk drive for less than 
$1000. Tandon also announced a hard 
disk drive available to manufacturers 
for less than $1000. 

This year's ultimate executive status 
symbol is the GRID Systems Corpora- 
tion Compass Computer. The Com- 
pass is about the size of a book, weighs 
a little over 9 lbs., and has a 320 by 240 
dot, 5" by 3 1/2" flat screen amber 
display built into the fold-down cover. 
The screen allows 24 lines of 70 
characters or some very nice graphics. 
The Compass comes with a UNIX like 
operating system, BASIC, Pascal, C, 
PL/M, Fortran 77, an editor, a macro 
assembler, a relational data base 
manager, an electronic spread sheet, a 
graphics and plotting program, a word 
processor, and a critical path project 
management system. A 1200/300 baud 
modem with auto dial and auto answer 
is built in. Two modular phone jacks 
even allow you to plug in a handset at 
the same time you plug into the phone 
Hues, so that you can have a power 
assisted telephone. Software is 
distributed by the company over com- 
munications links. The system has 
256K of RAM and 256K of bubble 
memory built in, and sells for $8150. 

Those looking for a computer about 
the same size and shape as the Com- 
pass on a much smaller budget may be 
interested in the Epson HX-20. The 
$800, 4 lb. computer comes with 16K 
of RAM. It has a Uquid crystal display 
screen with a matrix of 120 by 32 dots, 
enough for 4 lines of 20 characters. 
There are 32 special graphics 
characters. A calculator type printer is 
built in, as well as a clock with calen- 
dar, timer and alarm. It has a nice 68 
key standard keyboard with 5 special 
function keys. The unit has 4 nicad 
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batteries that recharge in 8 hours and 
last for up to 50 hours, depending on 
how much you use the printer or 
modem. Optional accessories include a 
microcassette drive for off-line 
storage, a bar code reader, an expan- 
sion unit for more RAM and ROM, 
and a modem. 

Only those of you who have read this 
far deserve to know about our favorite 
new product. For the price of an Ap- 
ple™, and about $1000 less than a 
comparable IBM Personal Computer, 
you will soon be able to buy a Sony 
SMC-70 computer. Unlike anyone else, 
whether U.S. or Japanese, Sony seems 
to have done everything right. The 
basic computer, which sells for $1475, 
weighs 10 1/2 pounds, is 15 inches wide 
and 17 inches deep, and has 64K of 
program RAM and 38K of graphics 
and video RAM. It has a 4 megahertz 
Z-80 processor and runs CP/M. Text 
modes include either 25 lines of 80 
characters or 2 pages of 25 lines of 40 
characters. The character set is fully 
programmable, the graphics resolution 
ranges up to an incredible 640 by 400 
dots, allowing 16 colors in the 320 by 
200 dot mode. A battery backup calen- 
dar clock, audio speaker, tone 
generator and sound level switch are 
also standard. 

Connectors are built in for RS-232C, 
parallel printer, light pen, RGB and 
composite video, earphones, numeric 
key pad and cassette tape recorder. 
There are five expansion I/O slots for 
floppy disks, extra memory, and 
peripherals. Additional peripherals an- 
nounced were an expansion unit with 
five additional slots, additional RS- 
232C interface, IEEE-488 interface, 8 
inch disk controller, 8 inch floppy and 
hard disk drives, video signal con- 
verter, battery backup unit, 256K 
cache memory storage, video cassette 
recorder control unit, videodisc con- 
troller, 192K RAM bank, three printers 
and a 16 bit adapter with an 8086 
microprocessor and 256K of RAM that 
should run the same DOS as the IBM 
Personal Computer. 

The standard floppy disk option 
costs $1100 extra and includes two of 
Sony's new 3 1/2 inch floppy disk 
drives with 280K of storage per 
diskette. Sony was also showing an 
$895 RGB color monitor with software 
selectable 525 and 625 line resolution. 

At the show, Sony demonstrated the 
SMC-70 controlling an industrial 
videodisc, and also showed the 16 bit 
adapter. With the 8086 in place, the 
Z-80 is used as an I/O controller, 
creating a very powerful system. Since 
I can't afford a Compass, I want a 
Sony SMC-70 next! © 
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Win $500! 

The First National Computer Owner Survey 
50 Second Prizes of $10 each! 



In order to keep developing and bringing you very 
special hardware, software and publications, we've 
been commissioned to find out wtiot you, ttie customer, 
wants and needs. 

In addition to contributing to ttie computer owners' 
data base, you tiave a ctionce to win $500... just 
for filling out ttiis sunrey. 

JUST TAKI A FEW MINUTES, ANSWER EVERY APPLICABLE 
QUESTION - YOU MUST TO BE ELIGIBLE - AND MAIL 
TO US NO LATER THAN OCTOBER 31, 1982. FOR 200 YOU 
COULD WIN HUNDREDS. 



Entrants must be computer owners or users ond onswer every appllcoble question. 
A random drawing, eligibility approval and list of winners will be verified by a Notory 
Public. Winners will be notltled by Dec. 31, 1982. Grand Prize winner gives IRV 
Brechner Enterprises the riglit to use name and pboto In future surveys and 
advertising. No purcliase necessary. Limit one entry per person. Entries must be 
postmarked no later thon Oct. 31, 1982 ond reach us by Nov. 15, 1982. Prizes 
include one cash award of $500, and 50 cash prizes of $1 each. All survey entries 
become property of IRV Brechner Enterprises; none will be returned. Ail prizes will be 
awarded by Nov. 31 , 1 982. All Federal, State and Local taxes are responsibility of the 
winner. This contest void where prohibited by law. For a prize winner list, send a 
sell-oddressed stamped envelope to IRV Brechner Enterprises, Box 264W0B, West 
Orange, N.J. 07052. 



NAME. 



ADDRESS 



CiTY/STATE/ZiP 



AGE_ 



SEX_ 



Circle: SINGLE iMARRiED # CHILDREN 

6 7 9 



COMPUTERS(S) YOU OWN OR USE (Circle) APPLE ATARI TRS-80 IBM PC HEWLETT-PACKARD HEATH ZENITH OSBORNE 

^ ' 10 11 12 13 14 15 16 17 

iROMEMCO OTHER. 
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PRINTER BRAND_ 



XEROX DEC 

18 19 



TEXAS INST. 

20 



NORTH STAR 

21 



COMMODORE 

22 



VECTOR 

23 



OWNED HOW LONG 

25 26 



# DISK DRIVES- 



OWN HARD DiSK7- 



APPROX. # DISKETTES OWNED_ 



32 



OWN MODEM? 

2 

BRAND PREFERENCE. 



MONITOR BRAND_ 



31 



OPERATING SYSTEM(S)- 



AMOUNT OF MEMORY (Circle) 
LANGUAGES YOU PROGRAM WITH OR USE 



8K 

35 



16K 

36 



24K 

37 

(Circle) 



32K 

38 

BASIC 

44 



48K 

39 



64K 

40 

FORTRAN 

45 



128K MORE_ 

41 



34 



_# DISKETTES PURCHASED/YEAR 

42 43 



COBOL 



MACHINE 

47 



ASSEMBLER 

48 



FORTH ALGOL 

50 51 



PASCAL 

52 



c 

53 



ADA 

54 



APL 

55 



LISP 

56 



CAI 

67 



APPROXIMATE NUMBER OF SOFTWARE PROGRAMS YOU OWN PER CATEGORY: 



MONITORS 

49 



DO YOU WRITE YOUR OWN SOFTWARE (Circle) YES 

58 



NO 

59 



EDUCATION- 



HOBBY. 



BUSINESS- 


GAMES 

61 


HOME USE 


OTHER 



YOUR PROFESSION. 



65 66 

PRIMARY USE FOR YOUR COMPUTER. 



SCIENTIFiC. 



APPROX ANNUAL INCOME (Opitonai). 



_MOST RECENT EDUCATION LEVEL (Circle) 



HIGH SCHOOL 

70 



COLLEGE GRADUATE 

72 



SOME GRADUATE SCHOOL 

73 



MASTER'S DEGREE 

74 



OTHER. 



SOME COLLEGE 

71 



WHICH PUBLICATIONS DO YOU SUBSCRIBE TO OR READ REGULARLY (Circle all tliat apply) APPLE ORCHARD 

76 



BYTE 

77 



COMPUTE 

79 



COMPUTERWORLD 

80 



CREATIVE COMPUTING 

81 



DESKTOP COMPUTING 

82 



INTERFACE AGE 

63 



CALL-APPLE 

78 



MICRO 

86 



MICROCOMPUTING 

85 

SOFTSIDE 

92 93 

APPROX # COMPUTER BOOKS OWNED. 



MICROSYSTEMS 

87 



NIBBLE 



PEELINGS I 

89 



POPULAR COMPUTING 



INFOWORLD 

84 

PERSONAL COMPUTING 

91 



OTHERS. 



WHAT NEW PRODUCTS, IDEAS, HARDWARE, SOFTWARE, PUBLICATIONS, ETC. DO YOU WISH TO SEE COME ABOUT? 
Please be specific and use odditional poper if necessary. Staple to survey when completed. 



Signature . 
Mail oil completed surveys by Oct. 31, 1982 to: 
NATIONAL COMPUTER OWNERS' SURVEY • BOX 264W0B • WEST ORANGE, N.J. 07052 
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•Apple, Atari, TRS-80, IBM PC, Hewlett-Packard, Heath, Zenith, Osborne, Xerox DEC, Texas Inst,, North Star, Commodore, Vectors Cromemco are all registered trademarks. 



lENTERT/IINMENT TOMORROH/I 



THE WORLD OF 




Shadows and Magic 

"I have a little shadow that goes in and out with me. And 
what can be the use of him is more than I can see" 

Robert Louis Stevenson, "My Shadow" 



by Fred D'Ignazio and Allen L. Wold 

Arthur C. Clarke's Third Law reads: 
"Any sufficiently advanced technology 
is indistinguishable from magic." 
Disney Studio's new film, Tron, was 
made by technology so advanced it 
proves Clarke's theories. Tron is about 
a magical journey into the heart of that 
technology — the bizarre and enchant- 
ing world inside the computer, in- 
habited by electronic beings who are a 
shadowy reflection of humans. 

Tron is the story of Flynn, a young 
computer expert and video game 
genius. Flynn's old company, EN- 
COM, stole some popular and pro- 
fitable arcade games that he invented. 
In frustration, Flynn leaves ENCOM 
and starts his own arcade. From a ter- 
minal, hidden away above his amuse- 
ment palace, he tries to sneak onto the 
ENCOM system and uncover the 




evidence he needs to prove the theft of 
his game programs. 

With the help of friends still at EN- 
COM, Flynn sneaks back into the com- 
pany's building to a terminal with 
privileged access to the ENCOM com- 
puter system. Unfortunately, MCP, 
ENCOM's sentient, evil "Master Con- 
trol Program," detects Flynn's 
presence at the terminal and blasts him 
with a new laser teleportation device. 
The laser transforms Flynn into an 
electronic being, and MCP sucks him 
into the bizarre world of the computer. 

Until his encounter with MCP, 
Flynn was a videogame inventor — a 
master at creating exciting battles be- 
tween electronic gladiators who sprang 
to life at the drop of a quarter. Inside 
the computer, Flynn confronts his own 
creations. The deadly weapons he had 
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designed — mere images on the display 
screen — are now real and threaten to 
kill him. 

Fortunately for Flynn, he is not the 
only rebel force opposing MCP. 
Another is TRON, a program/being 
dedicated to overthrowing MCP and 
returning control of the huge ENCOM 
computer back to its human "users." 
Flynn and TRON join forces and battle 
the warriors and weapons thrown at 
them by MCP and its villainous cham- 
pion, SARK. That battle, and Flynn's 
attempts to escape to the real world, 
dominate the remainder of the movie's 
plot. 

An Anti-Computer Movie? 

Some critics have claimed that Tron 
is an anti-computer movie, in the 
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tradition of films liice Failsafe, The 
Forbin Project, Demon Seed, 2001, 
and, recently, Evilspeak. The critics 
point to the demonic program, MCP, 
and its classic computer obsession of 
revenge against its human users. 

According to writer-director, Steven 
Lisberger, Tron is not anti-computer at 
all. In Lisberger's eyes, the computer is 
a powerful tool that is ethically 
neutral. The story is about a fantasy 
world that exists in the wires, circuits, 
and electronic impulses flashing 
through the computer, reflecting the 
outside world of human "users." In 
fact, all the major human characters 
have electronic counterparts — pro- 
grams — which inhabit the com- 
puter, and have the same good/evil 
alignment as their real world com- 
plements. As in the world we know, 

LEFT AND BELOW: The heroes' light-cycles 
battle and escape from the deadly game grid. 
This scene was a result of a collaboration be- 
tween animators at Walt Disney Studios and the 
Synthavision computer animation system at 
MAGI (Mathematical Applications Group, Inc.) 
of Elmsford, New York. 





RIGHT: A close-up view 
of the Master Control Pro- 
gram's Citadel. The images 
of the citadel were 
generated by computers at 
Information International 
Inc. of Culver City, 
California. 

All photos courtesy of 
Walt Disney Productions. 
Copyright 1982, Walt 
Disney Productions. 
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good and evil are locked in constant 
struggle. 

Our Computer Shadows 

Tron 's image of the computer is far 
more than fantasy. According to 
Lisberger, our computers' knowledge 
of the outside world is growing swiftly. 
In the form of electronic impulses, 
bits, data, and information banks, 
they've created a primitive reflection 
— an "alternative universe" — cor- 
responding to our world. In the years 
to come, that reflection will grow more 
lifeHke and complete. 

You, I, and millions and billions of 
other people have an alter ego — a 
simulacrum — that resides inside and 
extends across dozens of computers. 
That simulacrum is crude — a mere 
ghost or shadow. It consists of only a 
few thousand bytes, contains massive 
gaps, causing distortion or innacuracy. 
But, as computer programs become 
more inteUigent and advanced, they 
can better interpret the information, 
and the shadow's features begin to ap- 
proach our own. This evolution of 
computer shadows into electronic 
"echoes" of living, flesh-and-blood 
beings is factual. It is occurring right 
now, at great speed, and can be 
documented. 

The Shadow vs.the Real 



Are these shadows ahve? Will they 
ever achieve a life independent from 
human beings? Tron postulates an 
answer to this question. 

One of the major debates in the field 
of Artificial Intelligence (AI) is over 
the possibility of a computer becoming 
sentient — having self-awareness. Op- 
ponents of computer sentience argue 
that no matter how sophisticated they 
are, computers don't have an inkling 
of what they are doing. They may solve 
problems at the level of a Ph.D. in 
biochemistry and whip the pants off 
the human-world backgammon cham- 
pion. But they do it mindlessly. 
Without reflection, they manipulate 
symbols according to predetermined 
(or random) patterns. Only the illusion 
of self-awareness exists, not true 
sentience. The computer may 
demonstrate intelligence, but it cannot 
"live." 

Yet, in Tron's postulation, it does 
live — in the form of a few active, self- 
aware programs that seem as much 
alive as their human counterparts. The 
malevolent MCP, the sinister SARK, 
the valorous TRON, and the beautiful 
YORI are electronic reflections of their 
human creators. However, they are not 



mere servants to those creators' wishes. 
MCP is the catalyst. In its revolt 
from bhnd obedience to human users, 
it galvanizes other advanced programs, 
especially as represented by TRON, to 
leave their human servitude. Unfor- 
tunately, as with many other in- 
stigators of revolt, MCP's motives are 
not for the programs' independence, 
but rather for their subservience to 
MCP's domination. Even so, these 
programs remain loyal to their human 
users, whom they revere and believe to 
be gods. Their "free will" is con- 
strained by their obligation to serve 
their gods — presumably as the gods 
dictate. 

The Computer Looks Within 

In Tron, much of the visual 
representation of the world inside the 
ENCOM computer was generated by 
real world computers. Tron cost 
Disney Studios over $17 million to pro- 
duce. Approximately $4 million was 
spent on computer generated imagery. 
Another $6 million went into non- 
computer generated special effects, in- 
cluding hand-painted eel animation 
and back-Ht, live-action enhancement. 

Tron is a study in contrasts. In the 
film, Disney Studios pioneered the use 
of high-technology, computer 
generated images. Yet, most of the film 
— special effects and all — was pro- 
duced by hand. Steven Lisberger knew 
that digital film printers (like the one 
referred to by director, Francis Ford 
Coppola, in our last column) were 
already in existence. They knew that 
they could shoot the entire movie and 
add special effects digitally — without 
ever having to use the film. 

However, Disney Studios didn't 
have one of the experimental printers 
nor the expertise to use it. Excepting 
the computer-generated scenes, they 
composited the hundreds of thousands 
of film frames by eel flopping. The 
animators made as many as 25 passes 
on each frame in the movie. They 
reproduced the frames on Kodalith 
eels, then stacked them up several 
layers thick on animator stands and 
photographed the final version on 
65mm film. This process was 
laborious, time-consuming, and expen- 
sive (in animators' wages alone). One 
day, the process will be entirely 
automated, but not yet. 

Even so, the computer's role was 
significant. According to some experts, 
Tron is the pioneering movie for com- 
puter animation. In the future, Tron 
may seem crude and primitive, but it 
represents a turning point — the in- 
troduction of computerized motion 
graphics as a major, perhaps revolu- 
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tionary, filmmaking tool. The com- 
puter was also used in many incidental 
parts of the film. It produced the sta- 
tionary background mattes for many 
of the scenes in Tron. Computer- 
controlled stepper motors guided 
several of the Tron live-action and 
animation cameras. Scene coor- 
dinators used a central computer 
database to keep track of the changes 
to the more than one hundred thou- 
sand film frames and to the multiple 
"special effects" copies of the seventy- 
five thousand frames of live-action in 
the "electronic world." 

Filmmakers were concerned that the 
nonstop stream of spectacular special 
effects in Tron would "burn out the 
eyeballs" of the average moviegoer. 
They were accustomed to grabbing the 
viewers' attention for a sixty second 
commercial, but worried that the hour- 
plus visual blitz in Tron would be over- 
whelming and destroy the film's 
dramatic tension. 

To solve the problem, one of the 
scene coordinators, Peter BHnn, pro- 
grammed a computer to create a 
sinusoidal wave of ascending and 
descending curves tied into the movie's 
structure and action. The data output 
from the program was used to control 
the cameras and the dissolve shutters 
used in shooting the film. This resulted 
in carefully modulated special-effects 
"climaxes" and "troughs," which 
alternated visual pyrotechnics with soft 
glow and diffusion effects orchestrated 
to the movie's action. 

Atlhough computers played a major 
role in Tron, the entirely computer- 
generated images consitute only fifteen 
minutes of the film. The rest of the 
film was created by compositing 
frames of live action, computer im- 
ages, effects animation, motion con- 
trol photography, and back-lit 
enhancement. Nevertheless, these fif- 
teen minutes of Tron represent a major 
breakthrough for the high-tech pro- 
grammers and animators in the field of 
Computer Generated Imagery (CGI) 
— the first significant use of CGI in a 
feature-length film produced by a ma- 
jor studio. It is fitting that the pioneer- 
ing studio is Disney Productions, 
where, fifty years ago, animation was 
born. 

The Computer Magicians 

Lisberger and Disney Studios went 
to four of the world's premier com- 
puter graphics companies to get the 
computer images they needed. The 
computers of Robert Abel and 
Associates of Hollywood did the open- 
ing title sequence of Tron and con- 
tributed to the scene in which Flynn 
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is transformed into an electronic be- 
ing and swallowed by the ENCOM 
computer. 

Digital Effects, Inc. of New York 
City created the little computer "Bit" 
which floats around, accompanying 
the good guys in their battle with 
SARK and the MCP. The firm used 
CGI to create this little geometric 
sidekick, which alternates between a 
spiky sphere and an octahedron to in- 
dicate whether his answer to a question 
is "No" or "Yes." (You may note 
the parallel to a data bit's on/off 
condition.) 

The two firms who did the most 
work on Tron were MAGI 
(Mathematical Applications Group 
Inc.) of Elmsford, New York, and 
"Triple-I" (Information International 
Inc.) of Culver City, California. 
MAGI's CGI produces cartoon-like 
objects which can be highly dynamic 
and interactive; perfect images for the 
elaborately choreographed chase 
scenes in the first half of the movie. 
For example, MAGI generated the ex- 
citing duel of the light-cycles and the 
heroes' escape from the game grid. 

Triple-I' s CGI equipment and pro- 
grams produce realistic images with 
highly detailed, textured surfaces. But, 
the programs are not as well suited to 
animation involving complex object in- 
terplay, fluidity, and movement. 
Triple-I created several marvelous 
scenes, including the chase scene be- 
tween SARK's deadly carrier and the 
beautiful Solar Sailer, and the con- 
cluding scene at MCP's giant In- 
put/Output Tower. Triple-I programs 
also generated the eerie, grotesque pic- 
tures of the Master Control Program's 
face, though the scenes where the MCP 
is talking are hand animated, using in- 
dividual frames suppHed by Triple-I. 

MAGI's Synthavision 

Disney animators, Jerry Rees and 
Bill Kroyer, worked closely with the 
animators and programmers at MAGI 
to produce the movie's early computer 
images. They submitted sketches to 
MAGI, along with precise specifica- 
tions. They indicated the speed of the 
objects in the scenes, the architecture, 
the environment, the lighting, the col- 
or, and the texture. They defined every 
movement, color, and action in terms 
of distance, direction, and time. 

MAGI coded the specifications into 
their computer, known as Synthavi- 
sion, which has been developed over 
the last 15 years. It is different from all 
other digital imaging systems in that it 
is based on combinational 3-D 
geometry, or solids modelling. It uses 
"canned" three-dimensional figures 
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(spheres, cubes, cones, ellipsoids, etc.) 
to build more complicated three- 
dimensional objects. For Tron, these 
objects included buildings, grids, 
tanks, light cycles, and so on. 

Using Synthavision, MAGI 
generated the first, rough draft anima- 
tions, then wired them over a cross- 
country phone line to Rees and Kroyer 
at Disney Studios in Burbank. The 
Disney animators could view the 
animations from several different 
directions and speed them up or slow 
them down. The first animations were 
in low resolution (only 80 scan lines per 
screen) and in black and white. 

After viewing the first animations 
for each scene, Rees and Kroyer would 
phone MAGI and discuss changes that 
were needed. The animators at MAGI 
would make the changes, then produce 
the final animations — in color and 
high-resolution (1800 scan lines per 
screen). After the final images were 
generated, they were converted into 
VistaVision film and shipped to 
California. 

Triple-I's ASAS and TRANU 

Triple-I uses a more traditional 
method to create its digital scene 
simulations. Like MAGI, it builds its 
objects from geometric primitives, but 
the primitives aren't three-dimensional 
figures; they are flat, two-dimensional 
polygons. After being combined and 
shaded, the polygons resemble facets 
on a three-dimensional diamond. 

When Triple-I received Disney 
specifications for Tron scenes, the 
Disney blueprint of each object was en- 
coded on a digitizing tablet which 
entered the data into the computer. In- 
side the computer, the object was first 
run through Triple-I's ASAS (Actor/ 
Scriptor/Animation System), then 
through TRANU (the New Trans- 
parency Algorithm). ASAS rounded 
off the polygons' sharp edges to 
smooth and soften the objects. It 
eliminated hidden lines, colored each 
object, set it in motion, and adjusted 
the scene's lighting. Next, TRANU 
shaded each item, further adjusted the 
lighting, created object shadows, and 
made the surface of each object more 
detailed and realistic. 

This attention to contour and texture 
is especially critical to an object's ap- 
parent three-dimensionality. Together, 
the ASAS and TRANU programs can 
generate images of an infinite variety 
of objects. The images might be 
simulating objects made of highly 
polished metal or rough-hewn stone. 
Or, they might be images of 
diaphanous and ephemeral objects, 
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like the beautiful blue sail of Tron's 
Solar Sailer. 

Where Magic and 
Technology Meet 

The Disney animators who worked 
on Tron are convinced that the com- 
puter will not replace them. Instead, 
they see CGI as a sophisticated new 
animator's tool that actually gets them 
closer to, and lets them play a bigger 
part in, the finished product. 

The collaboration between artists 
and the computer seems to have been 
mutually beneficial to Tron. The 
Disney animators brought the tools in- 
herited from a rich tradition of 
classical animation and a highly 
developed sense of motion as a means 
to heighten drama and express 
character or personality. As a result, 
the computer-generated objects in the 
movie show "organic movement." 
They are rarely neutral, grabbing our 
attention, and often, our emotions. 
Watch, for example, the way the light 
cycles act when they escape from the 
game grid. 

On the other hand, the computer 
gave the animators the ability to pro- 
duce difficult, sleight-of-hand effects 
which would have once been extremely 
time-consuming or impossible. One of 
the most useful things the animators 
can do is interpolation. It can take the 
image of a solid, three-dimensional ob- 
ject and transform it, point by point, 
from an initial shape to a final shape. 
It can fold it up, flatten it, explode it, 
enlarge it, shrink it, or distort it — all 
smoothly and instantly. 

Once an object's volume, shape, 
edges, planes, and other characteristics 
are stored in the computer, the com- 
puter can manipulate them. Changing 
the object's parameters changes the ob- 
ject's image on the screen. Like a 
modern alchemist, the computer can 
transmute soUd concrete or steel ob- 
jects into flexible, malleable rubber or 
plastic. They metamorphose before 
our eyes. Watch, for example, when 
one of the enemy's warships, a 
Recognizer, merges its arms together 
into a big pogo stick for stomping 
things. 

According to Tron Effects 
SpeciaHst, Richard Taylor, the com- 
puter is Uke a magician's wand. It 
enables an imaginative person, like 
Steven Lisberger, to take a wonderful, 
creative vision and make it real. The 
vision becomes a film, and the film 
communicates the vision to millions of 
other people. Viewing the film, the 
audience begins to believe that it really 
could happen. Now, that's magic. © 
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Translations by Ron Shaker and Rich 
Bouchard 

Encryption modifications by Rich 
Bouchard, William Kubeck, and Alan 
J. Zett 

Operation: Sabotage is a fan- 
tasy/adventure game for a TRS-80® 
Model I/III (16K tape, 32K disk), 
ATARI 400/800® (24K tape; 32K 
disk), or Apple^*^ with Applesoft (16K 
tape, 32K disk). 

It is the year 2101 and war has 
broken out between Earth and the dis- 
tant planet Zekloke. This alien power 
has established a large military com- 
plex on Mars which will soon become a 
great danger to Earth. Hidden in the 
massive installation are several secret 
documents containing the plans for an 
incredible defense shield — strong 
enough to stop an entire fleet of 
spacecraft. 

You are a special agent and have just 
succeeded in sneaking into the alien 
complex. Your mission is to destroy 
this threat to mankind and return with 
plans for the powerful defense shield. 
The outcome of this mission will decide 
the fate of mankind. 



Playing Notes 



The computer will always give you a 
brief description of where you are, 
what objects you can see, and what ex- 
its are visible. You move and act by 
typing in simple commands, generally 
consisting of a verb and a noun. If the 
computer tells you that there is a laser 
pistol in the room, for example, you 
might want to type in the command 
"GET PISTOL". At a later time, you 
might be able to use it to "SHOOT 
MONSTER" or for some other pur- 
pose. If you no longer want to carry it, 
you can "DROP PISTOL" whenever 
you please. Since the computer looks 
only at the first three letters of the verb 
and the last three letters of the noun, 
you may use abbreviations such as 
"SHO TER" (for "SHOOT 
MONSTER") if you desire. Movement 
is accomplished by entering just a 
single letter rather than a two-word 
command: N, S, E, or W for north, 
south, east, or west. Typing the single 
word "INVENTORY" (or "INV") 
will display a list of what you are carry- 
ing. Typing "STATUS" (or "STA") 
will give you a readout of your current 
physical condition. 
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Part of the challenge of any fan- 
tasy/adventure game such as Opera- 
tion: Sabotage is to figure out what 
you are able to do in a particular situa- 
tion. Therefore, you will not find a list 
of all the verbs the computer can 
understand, or of all the objects you 
may discover. You might find yourself 
frustrated by what seem to be dead- 
ends, and end up getting killed in the 
process. This is all part of the adven- 
ture, and a test of your ingenuity and 
perseverance. 

Program Notes 

The most obvious feature of the pro- 
gram listing is that most of it looks like 
a cryptogram. The BASIC keywords 
are all in their usual form, but the 
string assignment statements and 
DATA lines contain incomprehensible 
garbage. This is because all of the 
room descriptions, object names, 
monsters, and verbs have been encod- 
ed. This has been done to preserve the 
value of the game. Anyone who types 
an adventure program in from a listing 
is bound to be disappointed in the 
game's playability, since he has gained 
so many clues about the plot. So, even 
though the typing is made slightly dif- 
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ficult by the scrambled words, this is 
the only reasonable way of publishing 
adventure programs in listed form. We 
have also omitted the usual list of 
variables for the same reasons. The 
variable descriptions give away too 
much information and the encoding of 
the program reduces the usefulness of a 
variable list. The encryption method is 
a simple one, which results in leaving 
punctuation unmodified, and inverting 
the order of the letters of the alphabet. 
This simple inversion process has the 
advantage of using the same routine to 
decode the text as was used to encode 
it. In Operation: Sabotage, the user's 
input is encoded, the internal searches 
and comparisons are done in encoded 
form, and the response is decoded and 
printed by the subroutine at line 5. 

SWAT 

In order to offset the proofreading 
problems created by this approach, we 
have included an expanded SWAT 
Table for the three versions of this pro- 
gram. (For more details on SWAT, see 
the original article in Issue 30 of Soft- 
Side.) Instead of the normal 
12-line/500-byte SWAT parameters, 
we have used 5-line/200-byte 
parameters. This means that you must 
modify the first line of the SPf:4r pro- 
gram in order to generate a table to 
compare with ours. After merging 
SWAT in the normal manner, but 
before running it, simply edit or retype 
line 60000 (Apple^"^), 32000 
(ATARI®), or 65000 (TRS-80®), 
changing "NU = 12: B = 500" to 
"NU = 5: B = 200". This will provide 
an expanded SWAT Table, enabling 
you to pinpoint typing mistakes more 
easily. 
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SS SS SS 3S S3 ss ss ss ss ss ss 

3S SS« 

SS APPLESOFT BASIC SS 
3S 'OPERATION: SABOTAGE' SS 
SS AUTHOR: RAY SATO SS 
SS TRANSL: RON SHAKER SS 
SS COPYRIGHT (C) 1982 SS 
SS SOFTSIDE PUBLICATIONS, INC SS 
SS SS 

SS SS SS SS SS SS SS SS SS SS SS 

Jump to program Initialization. 

1 GOTO 2550 



Decode and print output. 

3 GOSUB 4: GOTO 2210 

4 IF P$ = "" THEN RETURN 

5 FOR P = 1 TO LEN (P«):J = ASC 

( MID* (P$,P,N1)): PRINT CHR$ 
( ABS ((C155 t (J } Ci4)) - J) 
);: NEXT : PRINT : RETURN 

Encode Input 



i V* 



IF vol = "" THEN RETURN 
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1 FOR P = 1 TO LEN (VO«):J = ASC 

! HID* (VO*,P,Nl)):Vt = V$ + CHRt 
{ ABS ((C155 « (J > C64)) - J) 
): NEH : RETURN 

Descriptions of Individual rooms. 

10 At = "ZM ZRIOLXF. GSVIV RH Z YOF 

V VF6GLH SVIV":S = 2: RETURN 
20 A* = "Z HZIILD XLIIRWLr:N = 1:S 

= 3: RETURN 
30 At = "Z HZIILD XLIIR«LI":N = 2:3 

= 4: RETURN 
40 At = "Z HZIILD KLIIRWLIVN = 3:S 

= 5: RETURN 
50 At = "Z HNZOO ILLN":N = 4:3 = 6: 

RETURN 
iO At = "Z WVXLHGZNRMZGRLH XSZNYVI" 
:Bt = "GSVIV RH Z YOFV YFG6LM 
SVIV":« = 5:S = 7: RETURN 
70 At = 'Z HNZOO HGLIZTV )(3ZNYVI":N 

= i:S = 8:W = 12: RETURN 
80 At = "Z HNZOO XSZNVVI":N = 7:3 = 

9:W = 13: RETURN 
90 At = "Z HNZOO VQVX6ILMRX OZYLIZS 

LIB":N = 8:3 = 10:H = 14: RETURN 
100 At = "Z YRLOLTRXZO OZVLIZGLIB. 

GSVIV RH I IV« VFGGLM LM 6SV D 

ZOO":N = 9:W = 15: RETURN 
no At ^ "Z HGLIZTV XSZNYVI" :W = li 

: RETURN 
120 At = "Z OZITV XSZNYVr:B« = "GS 

VIV RH Z XZYRMVG SVIV":S = 13: 

W = 17:E = 7: RETURN 
130 At = "Z HGIZMTV KFIKOV ILLN. GS 

VI V RH Z YOFV YFGGLM SVIV":N = 

12:3 = 14:W = 1B:E = 8: RETURN 
140 At = "Z HNZOO LUURXV":H = 13:S = 

15:E = 9: RETURN 
150 At = "Z HNZOO ILLN DRGS Z XZIW 

GZYOV RM GSV XVI1GVr:N = 14: 

3 = lfc:W = 20:E = 10: RETURN 
160 At = "Z OZITV LUURXV. GSVIV RH 
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I WVHP SVIV";N = 15:« = 21:E = 
II: RETURN 
170 At = "Z LUURXV DRGS Z OZITV KVH 

P":S = 18:E = 12: RETURN 
ISO At = "Z HGLIZTV ILLN'sN = 17:S = 

19;E = 13: RETURN 
190 At = "Z OZITV 3Z00":N = 18:5 = 

20: RETURN 
200 At ^ "ZM VHGVIGZRHNVMS ILLN. Z 
HXIVVM IVHGH LHGSV DZ00":B$ = 
"GSVIV RH Z YOFV ZMW Z IVH YFG 
6LM FHWVI GSV HXIVVH":N = 19: 
S = 21:E = 15: RETURN 
210 At = "Z WZ6Z IVXLIW HGLIZTV ILL 

N":N = 20:E = 16: RETURN 
220 At = "IZWZI XLI1GIL0. GSVIV RH Z 
HNZOO HXIVVH SVIV":S = 23:W = 
27: RETURN 
230 At = "Z NVHRXZQ HGZGRLM. GSVIV 
RH Z OZITV GZYOV SVIV":N = 
22:S = 24:H = 28: RETURN 
240 At = "Z HVXFIRGB HGZGRLM':N = 2 

3: RETURN 
250 At = "Z IZWRL ILLN":S = 26:« = 

30: RETURN 

2c0 At = "Z HNZOO ILLN. GSVIV RH Z 

HZUV RM GSV HLFG3 DZOO":N = 

25: W = 31: RETURN 

270 At ^ "GSV ILYLG XLHGILO XVHGVI. 

GSVIV RH Z HNZOO XLHGILO X 

LNKFGVI NLFHGVW RH GSV DZOO" 



:Bt = °":H = 32:E 



RETURN 



280 At = "SSV DVZKLMH HGLIZTV ILLN" 

:S = 29:W = 33:E = 23: RETURN 
290 At = "Z ORYIZIB":N = 28:3 = 30: 

W = 34: RETURN 
300 At = "Z HVXFIRGB XSVXP ZIVZ":N = 

29:W = 36:E = 25: RETURN 

310 At = "Z HNZOO ILLN DRGS Z HVHP. 

Z HRTM IVZHH":B$ = "'KIVHHFIV 

GL IVZXGLI.' Z YOFV YFGSLM RH 

OLXZGVW FHWVI GSV HRTH":E = 2 

6: RETURN 
320 At = "OZFHXS XLHGILO. GSVIV RH 

Z WVHP SVIV":S = 33:W = 37:E = 

27: RETURN 
330 At = "Z HNZOO XLIIRWLI":N = 32: 

3 = 34:E = 28: RETURN 
340 At = "Z HGIZHTV YOFV ILLN. GSVI 

V RH Z IVW YFGGLM SVIV:N = 

33: S = 35:E = 29: RETURN 
350 At = "Z GRMB HGLIZTV ILLN":N = 

34: M = 40: RETURN 
360 At = "Z HNZOO XSZNYVI. Z WLLI D 

VHG OVZWH GL GSV MFXOVZI IVZ 

XGLr':E = 30: RETURN 
370 At = "Z HNZOO, HZIILD XLIIRJiLI" 

:N = 42:E = 32: RETURN 
380 At = "GSV XLNKFGVI XVMGVI, GSVI 



V RH I HNZOO H0L6 RM GSV XLN 
KFSVr:S = 39: RETURN 

390 A* ^ "SSV XSyNRHO OZY,":N = 38 

:S = 40; RETURN 
400 fit = "GSV IVZXSLI XLHGILO XVMGV 

I. GSVIV RH Z YDFV YFGBLH ZHW 
Z IW LMV. Z HRTM HZBH IVZXG 

LI :i!LMGILO - IVW=LM, YOFV=LUU" 

:N = 39:E = 35: RETURN 
410 A* = "GSV HFXOVZI IVZXGLI. I XL 

NKFGV! IVHGH LHGSV DZOO":E = 3 

i! RETURN 
420 At = "GSV DVHG VMW LU Z OLMT XL 

IIRWLI'iS = 37:E = 43: RETURN 
430 At = "GSV VZHG VMW LU Z OLMT XL 

IIRWLr':H = 42:E = 44: RETURN 

440 At = "Z HVXFIR6B XVMGVI":W = 43 

!E = 45; RETURN 
450 At == "Z HNZOQ OZFMXS ZIVZ":Bt = 

"GSVIV RH Z HNZOO HOLS HVC6 GL 
GSV OZFHXSTZGV":« = 44: RETURN 
Extended descriptions of current 
location 

460 IF A = 10 AND (D3 = 1 OR D3 = 

2) THEN Ct = -GSV NLHHGVI XZTV 
RH LKVH" 
470 IF A = 12 AND D5 = THEN Ct = 

"GSV XZYRMVG RH OLXPVW 
4B0 IF A = 12 AND D5 = 1 THEN Ct = 

"GSV XZYRMVG RH LKVM" 
490 IF A = 20 AND Di = THEN Ct = 

"GSV HXIVVM RH YOZHP" 
500 IF A = 20 AND Dfa = 1 THEN Ct = 

"Z NLERV RH YVRMT K02BVH LM GS 

V HXIVVM" 

510 IF A = 26 AND D9 = THEN Ct = 

"GSV HZUV RH OLXPVW" 
520 IF A = 2i AND D9 = 1 THEN Ct = 

"GSV HZUV RH LKVM' 
530 IF A = 27 AND E2 = THEN Ct = 

"GSV XLNKFGVI RH ZXGREV" 
540 IF A = 27 AND E2 = 1 THEN Ct = 

"GSV XLNKFGVI RH WVH6ILBVW 
550 IF A = 36 AND E6 = THEN Ct = 

"GSV IVZXGLI WLLI R^I UfllNOB OL 

XPVW" 
560 IF A = 36 AND Ei = 1 THEN Ct = 

"GSV IVZXGLI WLLI RH LKVM":W = 

41 
570 IF A = 45 AND E9 = THEN Ct = 

"BSV OZFMXS TZ6V RH XOLHVW" 
580 IF A = 45 AND E9 = 1 THEN Ct = 

"GSV OZFMXS TZGV RH LKVM':E = 

46 
Generate list of visible Items and 
available exits for current 
location. 

590 At = At + '.": IF LEN (Bt) > 3 
THEN Bt = Bt + "." 



400 IF LEN fCt) ) 3 THEN Ct = Ct + 

H II 

610 IF N < > THEN Et = "MLIGS " 

620 IF S < ) THEN Et = Et + "HL 

FGS " 
630 IF M > THEN Et = Et + "DVHG 

n 

640 IF E > THEN Et = Et + "VZHG 

n 

650 IF Et < > "" THEN Et = LEFTt 
(Et, LEN (Et) - 1) 

Describe current location, visible 
items, and available exits. 

660 HOME : INVERSE : PRINT "YOU AR 
E IN:": NORMAL :Pt = At: 60SUB 
4: PRINT : IF Bt < > "" THEN 
Pt = Bt: eOSUB 4 

670 IF Ct < > "" THEN Pt = Ct: GOSUB 
4 

680 PRINT : INVERSE : PRINT "OBJEC 
TS YOU CAN SEE: ": NORMAL :Pt = 
" ": FOR T = 1 TO 16: IF A = I 
(T) THEN Pt = It(T): GOSUB 4 

690 NEXT : IF Pt = " " THEN Pt = " 
-MLGSRMT-": GOSUB 4 

700 PRINT : INVERSE : PRINT "EXITS 

: ": NORMAL :Pt = Et: GOSUB 4 

Print out additional w/arnings, 
messages, etc. 

710 IF (A = 40 OR A = 35 OR A = 30 
OR A = 311 AND 1(4) =0 AND F 

3 = THEN Pt = "GSV HNZOO YOZ 

XP WVERXV RH YORMPRMT": GOSUB 4 
720 IF A = 36 AND 1(4) = AND F3 = 

THEN Pt = "GSV HNZOQ YOZXP H 

VERXV RH UOZHSRMT YIRTSGO 

B": GOSUB 4 
730 IF F4 < > THEN F4t = STRt 

(F4):Pt = "GSV XLNKFGVI HZBH: 

' " + F4t + " NRMFGVH FMGRO HVH 

GIFXGRLM'": GOSUB 4 
740 IF D3 = 1 THEN P$ = "t « » ZDR 

VM NLMHGVI ZG6ZXPRMT t t t": GOSUB 

4 
750 IF D7 = 1 OR EO = 1 OR E3 = 1 OR 

E7 = 1 THEN Pt = "t » » HVXFIR 

GB KZGILO ZGGZXPRMT » » »"; GOSUB 

4 
Get and interpret command. 
760 PRINT : INVERSE : INPUT "COMMA 

NO? ";VOt! NORMAL : GOSUB 6 
770 FOR T = 1 TO 4: IF Vt = LEFTt 

(V$(T),1) THEN Vt = Vt(T) 
780 NEXT T 

790 IF LEN (Vt) < 3 THEN 660 
800 Vlt = LEFTt (Vt,3):V21 = RIGHTt 



(Vt,3) 



810 FOR T = 1 TO 17: IF Vlt = LEFTt 

(VI (T), 3) THEN VI = T 
820 NEXT T: IF Vl = THEN Pt = "R 
HLM'G FMHVIHGZMW DSZG BLF DZM 

G.": GOSUB 4: FOR II = 1 TO 10 

00: NEXT : GOTO 2210 
330 FOR T = 1 TO 16: IF V2t = RIfiHTt 

(It(T),3) THEN V2 = T 
840 NEXT T 
350 ON VI GOTO 870,910,950,1020,11 

00, 1280, 1340, 1360, 1530, 1590, 16 

30, 1760,1830, 1880,1980,2140,22 

00 
860 GOTO 2210 
Command tiandier routines. 
870 IF N = THEN 1080 
880 IF D3 = 1 THEN Pt = "GSV NLHHG 

VI YOLXPH GSV VCR6": GOTO 3 
890 IF D7 = 1 OR E3 = 1 THEN GOTO 

1070 
900 A = N: GOTO 2210 
910 IF S = THEN 1080 
920 IF S = 24 AND D8 < > AND E2 
( > 1 THEN D7 = 1: GOSUB 109 


930 IF S = 30 AND E4 < .> AND E2 
< > 1 THEN E3 = I: GOSUB 109 


940 A = S: GOTO 2210 
950 IF W = THEN 1080 
960 IF D3 = 1 THEN Pt = "GSV NLMHG 

VI YOLXPH GSV VCRG": GOTO 3 
970 IF EO = 1 OR E3 = 1 OR E7 = 1 THEN 

1070 
980 IF W = 41 AND F3 = THEN Pt = 

"IZWRZGRLM UILN GSV IVZXGLI SR 

GH BLF": GOSUB 4: GOTO 2460 
990 IF W = 30 AND E4 < > AND E2 
\ ;• 1 THEN E3 = 1: GOSUB 109 


1000 IF W = 27 AND El ( .> AND E 

2 < > 1 THEN EO = 1: GOSUB 10 

90 
1010 A = W: GOTO 2210 
1020 IF E = THEN 1080 
1030 IF EO = 1 OR E3 = 1 OR E7 = 1 

THEN 1070 
1040 IF E = 27 AND £1 < ) AND E 

2 < > 1 THEN EO = h GOSUB 1090 
1050 IF E = 44 AND EB < ) AND E 

2 < > 1 THEN E7 = 1: GOSUB 10 

90 
1060 A = E: GOTO 2210 
1070 Pt = "GSV HVXFIR6B ZMWILRW YOL 

XPH GSV VCRG": GOTO 3 
1080 Pt = "GSVIV RH ML DZB GL TL GS 

ZG WRIVXGRLH": GOSUB 4: FOR J = 

1 ro 1500: NEXT : GOTO 2210 



continued on page 34 
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The Adventure is 




July #14 
Robin Hood Adventure 

Thou art somewhere in Sherwood 
Forest. ..Thus it begins. Tal<e up thy bow 
and arrow, and gather thy merry men, for 
thou art Robin Hood. There are rich mer- 
chants to rob and great deeds to do. But 
have care, bold Robin! The sheriff of Not- 
tingham longs to see thy necl< in a noose. 
Thou wilt surely need all thy wit and cun- 
ning to succeed. 



June #13 
Arrow One Adventure 

You are Adam Trent, a trouble-shooter for 
the Federation of Space. You descend to an 
alien planet and make a horrifying 
discovery, which impels you into a 
desperate and dangerous quest. This 
unique science fiction adventure will test 
your skills and ingenuity. 



May 1982 
Titanic Adventure 

You are the Captain of the Titanic on her 
maiden voyage. Suddenly a large white ob- 
ject comes into view through the window. 
Can you avoid the historic collision? If not, 
can you save the lives of your passengers 
and crew? 



April 1982 
Witches' Brew Adventure 

You find yourself in an enchanted forest. 
You must find your way to the castle and 
rescue the Princess who is chained inside 
its dungeon. A tightly-woven blend of fan- 
tasy, horror, and science fiction, this com- 
plex adventure will challenge your wits and 
ingenuity. 



IVIarch 1982 
James Brand Adventure 

The President's life is in danger. As 
James Brand, you must save his life and 
destroy the evil Dr. Death. Your life is con- 
stantly on the line; each move you make 
could be your last. "Your assignment, Mr. 
Brand...." 



February 1982 
Klondike Adventure 

Snow, ice, and bitter cold surround you. 
Your search for fame and fortune in the nor- 
thern country will lead you through many 
perils, but you may also see some familiar 
faces along the way. This breezy adventure 
will keep you occupied inside while the 
winter winds blow outdoors. 



January 1982 
Windsloe Mansion Adventure 

A famous prisoner lies in the dungeon of 
an old mansion. An underground passage 
connects the mansion with the Blair house, 
whose owners will help you to rescue the 
prisoner. Can you overcome the human and 
the supernatural creatures who inhabit 
Windsloe Mansion? 



December 1981 
Black Hole Adventure 

The crew of an interstellar craft discovers 
the long-lost Deep-Space Probe One, the 
Cygnus, at the edge of the vortex surround- 
ing an immense black hole. See if you can 
foil the plans of Dr. Hans Reinhardt. 



November 1981 

Around the World in Eighty Days 

Adventure 

Try to repeat the feat of the classic novel, 
complete with a balloon and other exciting 
features of the original adventure. Are you 
ready to take the challenge? Bon voyage! 



October 1981 
Crime Adventure 

Test your skills as a detective, sifting 
through hundreds of clues. You may have to 
become the new Sherlock Holmes to solve 
this one! Look for the strange, but don't 
overlook the obvious, as you try to find Mrs. 
Fenwick and return her to where she 
belongs. 



September 1981 
Jack The Ripper Adventure 

Jack the Ripper is running rampant in 
London and you must stop him! Scotland 
Yard demands that you take action, and the 
only answer Is to set yourself up as a decoy. 
Be careful how you plan your costume, or 
dear Jack will laugh hysterically and leave 
you in the dust! 



August 1981 
Treasure Island Adventure 

You are a hardy adventurer In search of 
fame, fortune, and whatever else you can 
get. You find yourself on an island where 
there is rumor of pirate's treasure. But 
watch out for the evil magician and the 
underground torture chamber! You may end 
up in a spot where all roads coming into it 
are paved with good intentions. . . 



July 1981 
Alien Adventure 

You are the sole survivor of a crew on a 
mission to deliver a cargo of oil to Earth. A 
crash landing has left you stranded on a 
small planet, harshly alien but rich in lead, 
gold and platinum. You must find provi- 
sions and a means of leaving the planet. 
But beware of the THING that massacred 
your crew! 



June 1981 
Arabian Adventure 

As Sinbad, the mightiest sailor in ancient 
Arabia, your mission is to rescue Princess 
Jasmine from the clutches of the Wizard of 
Darkness. You will cross the Seven Seas to 
the deadly Cyclops Mountain, and do battle 
with skeletons, a one-eyed beast, a hairy 
tarantula and more monsters who try to 
thwart your noble pursuit. 
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#15 ADVENTURE OF THE MONTH 
THE MOUSE THAT ATE CHICAGO 

Have you ever wanted to face the monsters in one of tfie 
classic Japanese horror films? We've got four man-eating 
mice for you, threatening to munch away on the city of 
Chicago. Each has its own specific weakness, and it's your 
civic duty to determine what it is and destroy them! Warning: 
Getting too close to a mouse can be very dangerous to your 
health — they love stepping on people. 



How would you like to go back in time 
to 19th century London to match wits 
with Jack the Ripper? Out into space to 
brave the swirling vortex of a black 
hole? Into the depths of the ocean, or 
on a quest to rescue a beautiful 
princess from the clutches of evil 
monsters? 

You never know where SoftSide 
Magazine's Adventure of the Month 

might take you. But you can be sure 
that each month you will experience 
new delights and new challenges as you 
receive an original adventure on tape or 
disk, ready to load into your computer. 

The cost? A six-month membership is 
just $29 for the tape ($4.83 per adven- 
ture) or $49 for the disk ($8.16 per adven- 
ture). If you're not sure that you can 
take six full months of excitement, you 
can order a single tape for $7 or a disk 
for $10. Or, if you're especially adven- 
turesome, we're offering disks, packed 
with three great adventures, for only $26 
per disk. 

Please use coupon below (or the bind- 
in card in this issue) to order. 




en f 




6 South Street, Milford NH 03055 



Yes, I'm ready to start! Send me Adventures — 



Six month subscription: 

n Cassette — $29 

D Disk — $49 

Individual adventures (please specify) 



D Cassette — $7 each 
n Disk — $10 each 

Three adventures on one super disk ($26 each): 

D Arabian, Alien, and Treasure Island Adventures 
D Jack the Ripper, Crime, and Around the World Adventures 
n Black Hole, Windsloe Mansion, and Klondike Adventures 
Q James Brand, Witches' Brew, & Titanic Adventures 



Please specify which computer: 

D AppleTM (req. 24K for tape, 32K for disk) 
n ATARI® (req. 32K for tape, 40K for disk) 
n TRS-80® (req. 16K for tape, 32K for disk) 

Name 

Address 

City/State 



-^ip- 



D MasterCard D VISA 
Name of Cardholder 



MC#andlnterbank#/VISA# 

Exp. Date Signature 

Prices subject to ctiange without notice, AppleTM, ATARI"' and TRS-80" are registered 
trademarks of The Apple Computer Company, Warner Communications and The Tandy 
Corporation respectively. 
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1090 P$ = "Z HVXFIRGB ZMHILRH ZDZR6 


E9 = 1 THEN Pt = "GSV ZRIOLXP 


1460 IF D3 = 1 THEN Pt = "BLF SRG 


H BLF": GOSUB 4: RETURN 


RH ZOIVZWB LKVM": GOTO 3 


GSV NLMHGVI": GOSUB 4:D4 = D4 - 


1100 IF A = 1 AND V2$ = "LXP" THEN 


1260 IF A = 45 AND V2t = "LXP" AND 


((10 + P2 + P3) / 2)! IF D4 < 


P» = "6Sy ZRIOLXP LKVttH ZHifi BL 


E9 = THEN PI = "GSVIV ZIVH'G 


= THEN D3 = 0:D4 = 0:Pt = " 


F ZIV YOLDM LFG RMGL 6SV EZXFF 


ZHB ERHRYOV XLHGILOH": GOTO 3 


BLF SZEV PROOVW RG": GOTO 3 


N UJ HKZXV": GOSUB 4: GOTO 24i 


1270 Pt = "R XZM'G WL GSZG": GOTO 3 


1470 IF D7 M THEN Pt = "BLF SRG 





1280 IF V2t = "GVI" OR V2t = "LRW" 


GSV ZMWILRW": GOSUB 4:D8 = D8 - 


1110 IF A = 12 AND V2t = "MVG" AND 


THEN Pt = "WLM'G YV IRWRXFOLF 


((5 + P2 + P3) / 2): IF D8 < = 


D5 = AND 1(2) < > THEN Pt 


H": GOTO 3 


THEN D7 = 0:D8 = 0:Pt = "RG 


= "BLF QFHG ZIVH'G HGILMT VHL 


1290 IF V2 = THEN Pt = "R XZH'G 


RH NVHGILBVW"; GOTO 3 


FTS GL ULIXV RG LKVN": SOTO 3 


WL GSZG": GOTO 3 


1480 IF EO = 1 THEN Pt = "BLF SRG 


1120 IF A = 12 AND V2« = "HVG" AND 


1300 IF I(V2) = THEN Pt = "BLF Z 


GSV ZMWILRW": GOSUB 4:E1 = El - 


D5 = AND I!2) = THEN Pt = 


QIVZWB SZEV GSZG": GOTO 3 


((5 + P2 + P3) / 2): IF El < = 


"GSV XILDYZI SVOKVH. GSV XZYR 


1310 IF A < > I(V2) THEN Pt = "R 


THEN EO = 0:E1 = 0:Pt = "RG 


MVG RH MLD LKVM': GOSUB 4:D5 = 


WLM'G HVV RG SVIV": GOTO 3 


RH WVHGILBVW": GOTO 3 


1:1(5) = ABS (1(5)): GOTO 221 


1320 IF P4 > = 8 THEN Pt = "HLIIB 


1490 IF E3 = 1 THEN Pt = "BLF SRG 





, BLF XZM'G XZIIB ZMBGSRNT NLI 


GSV ZMWILRW": GOSUB 4:E4 = E4 - 


1130 IF A = 12 AND V2$ = "HV6" AND 


V": GOTO 3 


((5 + P2 + P3) / 2): IF E4 < = 


D5 = 1 THEN P» = "GSV XZVRMVG 


1330 P4 = P4 + 1:I(V2) = 0; PRINT " 


THEN E3 = 0:E4 = 0:Pt = "RG 


RH ZOIVZWB LKVH": GOTO 3 


OK": GOTO 2210 


RH WVHGILBVW": GOTO 3 


1140 IF A = 16 AND V2t = "VHP" THEN 


1340 IF y2 = THEN Pt = "BLF HLH' 


1500 IF E7 = 1 THEN Pt = "BLF SRG 


PRINT "GK":I(6) = ABS (1(6)) 


G SZEV GSZG": GOTO 3 


GSV ZMWILRW"; GOSUB 4:E8 = E8 - 


: GOTO 2210 


1350 P4 = P4 - l:r(V2) = A: PRINT " 


((5 + P2 + P3) / 2): IF E8 < = 


1150 IF A = 17 AND V2$ = "VHP" THEN 


OK": GOTO 2210 


THEN E7 = 0:E8 = 0:Pt = "RG 


PRINT "0K":I(7) = ABS <I(7)) 


1360 IF 1(5) < > THEN Pt = "BLF 


RH WVHGILBVW": GOTO 3 


: GOTO 2210 


WLM'G SZEV Z DVZKLM": GOTO 3 


1510 IF D3 = 1 THEN Pt = "RG RH HG 


1160 IF A = 26 AND V2» = "ZUV" AND 


1370 IF A = 1 AND V2t = "LXP" THEN 


ROO ZOREV": GOTO 3 


09 = 1 THEN Pt = "GSV HZUV RH 


Ft = "BLF ZIV YOLDM LFG LU GSV 


1520 Pt = "GSV ZMWILRW RH HGROO UFH 


lOIVZWB LKVH": GOTO 3 


ZRIOLXP RH6L GSV EZXFFN LU 


XGRLMRMT": GOTO 3 


1170 IF A = 26 AND V2« = "ZUV" AND 


HKZXV": GOSUB 4: GOTO 2460 


1530 IF V2 = THEN Pt = "R XZH'G 


D9 = THEN P» = "R WLH'G S2EV 


1380 IF A = 27 AND V2t = "GVI" THEN 


WL GSZG": GOTO 3 


GSV PVB GL LKVH GSV HZUV: GOTO 


Pt = "SSV XLNKFGVI RH WVHGIL6V 


1540 IF I(V2) < > THEN Pt = "R 


3 


W": GOSUB 4:E2 = 1:E0 = 0: GOTO 


WLM'G SZEV GSZG": GOTO 3 


1180 IF A = 31 AND V2» = "VHP" THEN 


2210 


1550 IF V2 < > 9 AND y2 < > 14 THEN 


Pi = "LP. BLF URMW HLGSRHT RHH 


1390 IF A = 3S AND V2t = "GVI" THEN 


Pt = "R XZM'G WL GSZG": GOTO 3 


RWV": GOTO 3 


Pt = "GSV HSLG IVUOVXGH LUU LU 




1190 IF A = 32 AND V2t = "VHP" THEN 


GSV XLNKFGVI": GOSUB 4: GOTO 


1560 IF !y2 = 9 AND A = 44) OR (V2 


PRINT "OK": I (14) = ABS (1(14 


2460 


= 14 AND A = 38) THEN Pt = "M 


)): GOTO 2210 


1400 IF A = 41 AND V2t = "GVI" THEN 


LGSRMT SZKKVMH": GOSUB 4 


1200 IF A = 36 AND V2t = "LLI" AND 


Pt = "GSV DSLOV MFXOVZI IVZXGL 


1570 IF V2 = 9 AND A = 38 THEN F4 = 


E6 = 1 THEN P$ = "GSV WLLI RH 


I RH VCKOLWRHT": GOSUB 4: GOTO 


35;F4t = STRt lF4):Pt = "GSV 


20IV2«B LKVH": GOTO 3 


2460 


XLNKFGVI IVKORVH: 'YZHV WVHGIF 


1210 IF A = 36 AND V2t = "LLI" AND 


1410 IF V2t = "RHH" OR V2t = "YLG" 


XG HVJFVNXV HGZIGVW' WVHGIF 


E6 = AND 1(6) < > THEN P» 


OR V2t = "ILO" OR V2t = "IWH" 


XGRLH RH " + F4t + " NRMFGVH." 


= "BLF HLM'G SZEV GSV PVB GL 


OR V2t = "ZIW" THEN V2t = "LR 


: GOSUB 4:P4 = P4 - 1:1(9) = 1 


GSV WLLI": GOTO 3 


W" 


00: GOTO 2210 


1220 IF A = 36 AND V2$ = "LLI" AND 


1420 IF V2t < > "GVI" AND V2t < ) 


1580 IF V2 = 14 AND A = 45 THEN Pt 


E6 = AND 1(6) = AND E5 = 


"LRW" THEN Pt = "GSV 02HVI HSL 


= "GSV TZGV LKVMH": GOSUB 4:E 


THEN P$ = "BLF ZIV HFXPVW RM6 


G SZH ML VUUVXG": GOTO 3 


9=1: GOTO 2210 


L GSV FHKIVHHFIRAVH IVZXGLI 


1430 IF V2t = "GVI" AND D3 = THEN 


1590 IF V2 ( > 10 THEN Pt = 'HLM' 


YFROWRHT": GOSUB 4: GOTO 2460 


Pt = "R WLM'G HVV ZMB NLMH6VI 


6 VV IRWRXFOLFH": GOTO 3 


1230 IF A = 36 AND V2» = "LLI" AND 


SVIV": GOTO 3 


1600 IF I (10) < > THEN Pt = "BL 


1(6) =0 THEN Pt = "GSV HLLI R 


1440 IF V2t = "LRW" AND D7 = AND 


F WLM'G SZEV GSZG": GOTO 3 


H MLD LKVM": GOSUB 4:E6 = 1: GOTO 


EO = AND E3 = AND E7 = THEN 


1610 PRINT "OK": I (10) = 50:P4 = P4 


2210 


Pt = "R HLM'G HVV ZMB ZMWILRWH 


- 1:P1 = PI + 5 + P3: IF PO < 


1240 IF A = 41 AND V2t = "MVO" THEN 


SVIV": GOTO 3 


PI THEN PO = PI 


Ft = "GSV KZHVO RH URINOB OLXP 


1450 T = INT (100 * RND (D) + 1: 


1620 GOTO 2210 


V«": GOTO 3 


IF T > P2 + P3 + 50 THEN Pt = 


1630 IF A = 1 AND V2t = "OFV" THEN 


1250 IF A = 45 AND V2t = "LXP" AND 


"BLF URIV ZM« NRHH": GOTO 3 


Pt = "GSV ZRIOLXP LKVMH... BL 
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F 2 IV YOLDM LFB RN6L GSV E2XFF 


1720 IF A = 34 AND V2$ = "IVH" THEN 


1830 HOHE :P* = °t t t KOZBVI'H RM 


N LU HKZXV": GOSUB 4: SOTO 246 


A = 13:Pi = "Z UOZHS LU ORTSG 


EVHGLIB t t V: GOSUB 4 





GVNKLIZIROB YORHWH BLF": GOTO 


1840 PRINT ; FOR T = 1 TO 16: IF I 


lt40 IF A = 6 AND V2* = "OFV" THEM 


7 

v." 


(T) = THEN P» = "- " + I*(Tt 


P$ = "Z HGIZMTV, LIZMTV TOLD X 


1730 IF A = 40 AND V2« = "IVW" THEN 


: GOSUB 4 


LEVIH BLF ZHW GSV'M UZHVH ZDZ 


F3 = 0: PRINT "OK": GOTO 2210 


1850 NEXT T 


B": GOTO 3 


1740 IF A = 40 AND V2* = "OFV" THEN 


1860 PRINT ! PRINT "HIT <RETURN> T 


IfcSO IF A = 10 AND V2* = "IVW" AND 


F3 = 1: PRINT "OK": GOTO 2210 


CONTINUE";: GET T»: PRINT 


D3 = 1 THEN P« = "HLGSRHT SZKK 


1750 ?i = "HLGSRHT SZKKVMH": GOTO 3 


1370 GOTO 2360 


VMH': GOTO 3 




1880 IF V2 = THEN P$ = "R XZM'G 


1660 IF A = 10 AND m = °IVW" THEN 


1760 IF A = 22 AND V2t - "VVM" THEN 


WL GSZG": GOTO 3 


D3 = 1:P$ = 'Z« ZDRVM NLMHGVI 


P$ = "BLF JiZH HVV HLGSRHT LU R 


1890 IF I(V2) < > THEN P$ = "R 


RH IVOVZHVW. RG RH ZGGZXPR 


MGVIVHG LM GSV IZWZI": GOTO 3 


WLH'G SZEV GSZG": GOTO 3 


MT BLFI": GOTO 3 


1770 IF V2 = THEN P* = "R WLH'G 


1900 IF V2 = 1 AND A = 12 AND D5 = 


1670 IF A = 13 AND V2I = "OFV" THEN 


SZEV GSZG": GOTO 3 


THEN P$ = "GSV XZYRHV6 OLXP 


A = 34:P* = 'Z UOZHS LU ORTSG 


1730 IF nV2) < > AND A < > I( 


RH WVHGILBVH": GOSUB 4:D5 = 1: 


GVNKLIZIROB YORHWH BLF": GOTO 


V21 THEN Pt = "R WLM'G SZEV GS 


Id) = 100:1(5) = ABS (I(5))j 


7 


ZG": GOTO 3 


P4 = P4 - 1: GOTO 2210 


1680 IF A = 20 AND V2» = "IVW" AND 


1790 IF V2 = 3 OR y2 = 13 THEN Pt = 


1910 IF (V2 = 1 OR V2 = 15) AND (D 


D6 = THEN Pi = "ML6SRI1T SZKK 


"R HVV HLGSRHT HKVXRZO": GOTO 


3 = 1 OR D7 = 1 OR EO = 1 OR E 


'/HH": GOTO 3 


3 


3 = I OR E7 = 1) THEN I(V2) = 


1690 IF A = 20 AND V2* = "IVW" THEN 


IBOO IF V2 = 9 THEN P» = "HLIIB, L 


100:P4 = P4 - 1: GOTO 1460 


D6 = 0:P» = "GSV HXIVVM TLVH V 


HOB Z .XLNKFGVI HH IVZW Z 


1920 IF iy2 = 1 OR V2 = 15) AND A = 


QZMP": GOTO 3 


KILTIZN": GOTO 3 


1 THEN Pt = "GSV ZRIOLXP RH WV 


1700 IF A = 20 AND V2$ = "OFV" THEN 


1810 IF V2 = 16 THEN P» = "GSV KOZ 


HGILBVW...BLF ZIV VOLDHLFG RHG 


D6 = 1:P» = "GSV HHVVM 0RTS6H 


HH ZIV HVZOVW...LHOB XLNNZHW X 


L GSV EZXFFN LU HKZXV!': GOSUE 


Fr: GOTO 3 


ZH LKVH GSVN": GOTO 3 


4: GOTO 2460 


1710 IF A = 31 AND V2t = "OFV" THEN 


1820 P» = "R XZH'G IVZH GSZG": GOTO 


1930 IF !V2 = 1 OR V2 = 15) AND A = 


E5 = 1: PRINT "OK": GOTO 2210 


3 


36 AND E6 = AND E5 = THEN 



APPLE SPEAKS 
INTELLIGENTLY! 



The people who dared to teach Atari to talk are again 
challenging the microcomputer establishment with the 
VOICEBOX Speech Synthesizer for Apple. This low cost intel- 
ligent peripheral can speak thousands of words unassisted, 
generated directly from its firmware ROM dictionary lo- 
cated on its plug-in card. This means that speech, with 
variable intonation and speed, can be used in any of your 
apple programs without ever having to bother loading a 
disk. And, in case you want to expand your dictionary to 
include unusual words or words in foreign languages, you 
can easily define them with our 64 phonemes and store 
them by the thousands on one of the six special dictionaries 
provided for on our disk. 

In addition your VOICEBOX for Apple can be easily coded to 
sing on key with uniform barlengths and you can store 
(record) your songs on disk, retrieving and modifying sec- 
lions whenever you want. With the disk system, you'll also 
enjoy an educational random sentence generator and 
graphic speech animation! The VOICEBOX for Apple will 
run on 32K Apple II with Applesoft or Apple II Plus systems 
equipped with sixteen-sector disk drives. VOICEBOX for 
Apple comes with loudspeaker and disk. The Alien Group 
also makes a less expensive VOICEBOX for Apple with all 
features (including expandable disk dictionary), but ex- 
cluding firmware ROM and singing capability. Speaker is 
optional on this unit. 




For Atari users, 
the VOICEBOX for 
I6K and up Atari 
plugs directly into the 
serial port. No extra cables are 

needed and no speaker is needed since the speech comes 
directly over your TV monitor. This unit has all speech syn- 
thesis features except singing and firmware ROM. 

AL-3001 VOICEBOX for Apple. With firmware ROM, singing 

capability and speaker $215.00 

AL-3501 VOICEBOX for Apple. Without firmware ROM, 

singing capability and speaker $1 39.00 

AL-4001 Speaker for AL-3501 (the AL-3501 will also work 

with any other speaker) $15.00 

AL-5001 VOICEBOX for Atari $169.00 

All mail orders are on a 10 day moneyback guarantee if 
you're not completely satisfied. When ordering enclose 
check or money-order or state VISA or MASTERCARD num- 
ber Send mail orders tO: 

THE ALIEN GROUP 

27 West 23rd Street 

Depl. SS-2 

New York, New York 1 00 1 



or Telephone orders 
from 1 AM to 6 PM 
New York time 
(212)924-5546 



ALSO AVAILABLE AT LEADING COMPUTER STORES 
THROUGHOUT THE WORLD. 
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Pt = "6SV «LLI RH HVHBILBVW... 
BLF ZIV HFXPVW RMGL GSV FHKIV 

HHFIRAVW iyZX6LI VFRQWRHT": GOSUB 

4; GOrO 2460 
1940 IF (','2 = 1 OR V2 = 15) AND A = 

34 AND E6 = AND F3 = THEN 

Pt = "GSV HLLI RH WVHGILBVW. B 

LF ZIV YLNYZIWVMDRGS IZWRZGRLH 

": GOSUB 4: GOTO 2460 
1950 IF m = 1 OR ','2 = 15) AND A = 

36 AND E6 = THEN Pt = "6SV W 

LLI RH WVHGILBVW"! GOSUB 4:E6 = 

l:nV2i = 100:P4 == P4 - h GOTO 

2210 
I960 IF V2 ^ 1 OR V2 = 15 THEN Pt = 

"GSV " + It(V2) + " SZH HL VUU 

VXG": GOSUB 4!l(V2) = 100:P4 = 

P4 - l! GOTO 2210 
1970 GOTO 1340 
1980 IF V2 = THEN Pt = "R XZH'G 

HL GSZG": GOTO 3 
1990 IF I(V2) < > THEN Pt = "R 

WLH'G SZEV GSZG": GOTO 3 
2000 IF V2 = 5 AND D3 = 1 THEN V2t 

= "Gvr 

2010 IF V2 = 5 AND (D7 = 1 OR EO = 
3 OR E3 = 1 OR E7 = 1) THEN V2 
i = "LRW" 

2020 IF V2 = 5 THEN 1360 

2030 IF y2 = 4 AND F3 = AND lA = 
40 OR A = 35 OR A = 30 OR A = 
31) THEN Pt = "GSV YOZXP WVERX 
V RH YORMPRHT": GOTO 3 

2040 IF V2 = 4 AND F3 = AND A = 
36 THEN P* = "GSV YOZXP WVERXV 
RH UOZHSRMT YIRTSGOB": GOTO 3 

2050 IF V2 = 4 THEN Pt = "GSVIV ZI 
VH'G ZHB ERHRYOV XLMGILOH LH 
GSRH WVERXV": GOTO 3 

2060 IF V2 = 12 THEN 1(12) = A:P4 = 
P4 - l:!t(12) = "ZINVW KSLGLM 
YLNY":F2 = 35: Pt = "GSV YLNY D 
ROO VCKOLWV Rtl 35 NRMFGVH": GOTO 



2070 IF 



AND A = 12 AND D5 = 



THEN D5 = I:P$ = "GSV XZYRMV 
G RH HLD LKVM"; GOSUS 4:1(5) = 

ABB (1(5)): GOTO 2210 
2080 IF V2 = 2 AND A = 12 AND D5 = 

1 THEN Pt = "GSV XZYRHVG RH ZO 
IVZWB LKVH": GOTO 3 

2090 IF V2 = 7 AND A = 26 AND D9 = 

THEN D9 = 1:1(16) = ABS (I( 

161J:Pt = "GSV HZUV LKVMH": GOTO 

3 

2100 IF V2 < > 11 THEN Pt = "DSZG 

«L BLF DZflG NV GL WL ORGS GSV 

" + It(V2) + "?": GOTO 3 

21!'! IF 1(8) < ) THEN Pt = "GSV 



IV ZIVH'G ZHB YZGGVIRVH ULI GS 

V IZWRL": GOTO 3 

2120 IF F2 ( > THEN F2t = STRt 
!F2): PRINT :Pt = 'Z ELRXV HZB 
H 'YLNY HGZGFH:"! GOSUB 4:Pt = 
F2t + " NRMFGVH FI16R0 WVGLHZGR 
LM'": GOTO 3 

2130 Pt = "GSV IZWRL RH HROVHG": GOTO 

T 

2140 HOME :Pt = "t t t KOZBVrH HG 

ZGFH t t »": GOSUB 4: PRINT 
2150 Pit = STRt (Pl):Pt = "XFIIVHG 
SRG KIRMGH = " + Pit: GOSUB 

4 
2160 P2t = STRt (P2):Pt = "WVCGVIR 

GB ZGGIRYFGV = " + P2t: GOSUB 

4 
2170 P3t = STRt (P3):Pt = "OFXP ZG 

GIRYFGV = " + P3t: GOSUB 

4 
2180 PRINT : PRINT "HIT (RETURN) T 

CONTINUE";: GET Tt: PRINT 

2190 GOTO 2360 

2200 HOME :Pt = "TZNV LEVI": GOSUB 

4: GOTO 2470 
Update player status, and conduct 
combat if appropriate. 



2210 


IF F2 < 


> THEN F2 = F2 - 1 




: IF F2 


= THEN 2380 


2220 


IF F4 < 


> THEN F4 = F4 - 1 




: IF F4 


: = THEN 2420 


2230 


IF PI < 


PO THEN P5 = P5 + .5: 




IF P5 = 
+ 1 
IF D3 = 


1 THEN P5 = 0:P1 = PI 


2240 


AND D7 = AND EO = 




AND E3 


= AND E7 = THEN 2 




350 





2250 T =: INT ( RND (1) » 100) 
2260 IF D3 = 1 THEN Pt = "GSV NLHH 

GVI ZGGZXPH... ": GOSUB 4 
2270 IF D3 < > 1 THEN Pt = "GSV H 

VXFIRGB ZHWILRW HSLLGH... ": GOSUB 

4 
2280 IF T > 80 - (P2 + P3) THEN Pt 
= "RG NRHHVH": GOSUB 4: GOTO 

2350 
2290 PI = PI - ! INT ((5 t RND (1) 

) + 1) + ((5 « RND (D) + 1) + 

i(5 I RND (D) + 1) + ((5 » RND 

(D) + 1) + 15 - P3) 
2300 IF D3 < > 1 THEN PI = PI + 5 
2310 IF PI < THEN 2460 
2340 Pt = "BLF ZIV SRG!"; GOSUB 4 
2350 IF VI = OR VI > 4 OR D3 + D 

7 t EO + E3 + E7 > THEN FOR 

ZZ = 1 TO 2000: NEXT 

Initialize for new turn and jump 
to appropriate room description. 



2360 Vt = "":Vlt 



ci - 



;V1 = 



m 



:Ct 



0:V2 = 0:At = 
"";Dt ^ "":Et = "";N = 0:S = 
:W = 0:E = 
2370 ON A GOSUB 10,20,30,40.50,60, 
70,80,90,100,110,120,130,140,1 
50,160,170,180,190,200,210,220 
,230,240,250,260,270,280,290,3 
00,310,320,330,340,350,360,370 
,380,390,400,410,420,430,440,4 
50,2500: GOTO 460 

Evaluate end-game conditions and 
display appropriate messages. 

2380 HOME : IF A = 46 THEN F4 = - 

1: GOTO 2500 
2390 Pt = "GSV KSLGLM YLNY VCKOLHVH 

...GSVVM6RIV XLNKDVD RH WVH 

GILBVW": GOSUB 4 
2400 Pt = "BLF SZEV YVVM PROOV« YB 

GSV ULI XV LU GSVYOZHG": GOSUB 

4 
2410 PRINT : PRINT : GOTO 2470 
2420 HOME : IF A = 46 THEN 2500 
2430 IF A = 38 THEN Pt = "GSV XLNK 

FGVI UOZHSVH YIRTSGOB, VNRGGRH 

T HKZIPH RH ZOO HRIVXGRLMH": GOSUB 

4 
2440 Pt = "GSV XLNKOVC HFWHVMOB VCK 

OLWVH RHGL NRO- ORLMH LU KRVXV 

H": GOSUB 4 
2450 Pt = "BLF ZIV FROOVW YB 6SV UZ 

OORMT WVYIRH ZILFMH BLF": GOSUB 

4: PRINT : PRINT : GOTO 2470 
2460 Pt = "BLF ZIV WVZH!": GOSUB 4 
2470 INPUT "DO YOU WANT TO PLAY AG 

AIN^ (Y/N) ";At 
2480 IF LEFTt (At.l) = "Y" THEN 2550 
2490 PRINT : HOME : END 
2500 Pt = "GSV HKZXV HSRK HFHWVNOB 

ORUGH RHGL LIYRGZILFHH GSV KOZ 

MVG": GOSUB 4 
2510 IF ((F2 = 0) OR (F2 < > AND 

1(12) < > 41)) AND F4 = THEN 

Pt = "BLF WRWM'G HVHGILB GSV Y 

ZHV. BLF SZEV UZROVH BLFI NR 

HHRLM.": GOSUB 4: PRINT : GOTO 

2470 
2520 Pt = "UILN Z HRHGZMXV, BLF XZH 
HVV GSV ZORVM YZHV VCKQLWV": 
GOSUB 4 
2530 IF 1(16) < .> THEN Pt = "BL 

F WRHH'G IVXLEVI GSV HVXIVG KO 

ZMH MVVWVW YB HGZI XLNNZHH 

": GOSUB 4: PRINT : GOTO 2470 

2540 Pt = "NRHHRLM RH Z HFXXVHH!": GOSUB 

4; GOTO 2470 
Initialize worl<space. Read in 
items, and verbs. 

2550 CLEAR : DIM It(16), I(16),Vt(l 
7);C155 = 155:C64 = 64:N1 = 1 
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2560 HOME : PRINT TAB( 6)"0PERATI 


E4 + INT (2 t RND (D) + 1:E 


ON: SABOTAGE BY RAY SATO": PRINT 


8 = E8 + INT (2 t RND (D) + 


TAB( 6) "APPLE 11+ VERSION BY 


1; NEXT T 


RON SHAKER" 


2640 A = 1:P4 = 1 


2570 FOR [ = 1 10 16: READ I«(T),I 


2650 GOSUB 10: GOTO 460 


(T): NEXT 


Item and verb data 


2580 FDR T = 1 TO 17: READ Vi(T): NEXT 


2660 DATA KOZHGRX VCKQLHREV.O.XI 


2590 FOR T = 1 TO 40: PO = PO + INT 
(2 t RND (D) + 1: NEXT T 


LDYZI,7,XZ0VMWZI,8,HNZ00 YOZXP 

WVERXy,9,0ZHVI KRHGL0,-12,HVX 

FIRGB PVB,-16,VQVXGILMRX XLHGI 


Establish player attribute points. 
Jump to first room. 


LO YZGLI1,-17,VZG6VIRVH,18,XLNK 
F6VI WVHGIFXG I';ILTIZN,21,HR0EV 


2600 PI = PO 


I l(Rnn,23,l;:LIGZY0V 1ZHRL,25,0Z 


2610 FOR T = 1 TO 10:P2 = P2 + INT 


I TV KSLGLM YLN(,28 


(2 » RND (D) + 1: NEXT T 


2b70 DATA TZOZXGRX XSZIG,32,0ZFHX 


2620 FOR T = 1 TO 10; P3 = P3 + INT 


S H8HGVN XZHHV6GV. -32,«RGILT0 


(2 t RND (li) + 1: NEXT T 


BXVIRH,39,HVXIV6 K02HH,-26 


2630 FOR T = 1 TO 50: D4 = D4 + INT 


2680 DATA ' MLIGS,HLF6S,DVHG,VZHG,L 


(2 « RND (D) + liD8 = D8 + INT 


KyH,TVG,WILK,HSLLG,Rt1HVIG,VZG, 


(2 t RND (D) + 1::E1 = El + 


KFHS.IVZW.RHEVMGLIB.GSILD.FHV. 


INT (2 t RND (It) + 1::E4 = 


HGZGFH.JFRG 


APPLE™ SWAT TABLE FOR: 




OPERATION: SABOTAGE (Modi 


tied Parameters: NU = 5, B = 200) 


SWAT 


SWAT 


LINES CODE LENGTH 


LINES CODE LENGTH 


1-6 ZW 118 


1370 - 1390 KE 235 


7-30 UO 208 


1400 - 1420 BS 202 


40 - 80 XW 235 


1430 - 1460 AC 291 


90 - 120 CB 238 


1470 - 1490 N6 297 


130 - 160 VH 263 


1500 - 1530 PW 214 


170 - 200 TW 254 


1540 - 1570 OZ 288 


210 - 240 RR 226 


1580 - 1620 HO 193 


250 - 270 KL 218 


1630 - 1650 WO 230 


280 - 310 BR 258 


1660 - 1680 FU 210 


320 - 350 YG 225 


1690 - 1720 BN 219 


360 - 390 X« 238 


1730 - 1770 VG 212 


400 - 410 XD 201 


1780 - 1810 BI . 230 


420 - 450 YU 231 


1820 - 1860 HJ 162 


460 - 500 CN 232 


1370 - 1910 NJ 252 


510 - 550 JJ 219 


1920 - 1930 WN 233 


560 - 600 m 201 


1940 - 1960 PH 266 


610 - 650 AW 122 


1970 - 2010 VC 151 


660 - 700 XI 206 


2020 - 2050 LD 225 


710 - 730 QO 245 


2060 - 2080 FY 236 


740 - 780 YP 197 


2090 - 2120 EZ 294 


790 - 830 CH 185 


2130 - 2170 QL 223 


840 - 880 HW 167 


2180 - 2220 LC 143 


890 - 930 KZ 115 


2230 - 2270 Ptl 185 


940 - 980 KC 164 


2280 - 2340 IZ 172 


990 - 1030 JY 119 


2350 - 2370 HU 313 


1040 - 1080 QA 196 


2380 - 2420 RS 186 


1090 - 1110 RL 231 


2430 - 2450 XN 224 


1120 - 1140 JJ 215 


2460 - 2500 Htl 172 


1150 - 1180 DL 230 


2510 - 2530 JJ 272 


1190 - 1220 SO 289 


2540 - 2580 YX 217 


1230 - 1260 GQ 250 


2590 - 2630 KK 216 


1270 - 1310 SF 200 


2640 - 2660 PA 254 


1320 - 1360 BX 203 


2670 - 2680 WP 187 


1 



A 



ATARI 



OWNERS & 
PROSPECTIVE 
OWNERS 

Now is the time to buy 

ATARI® products at low, 

low prices! 

ATARI® 800 w/ 16K $699 

w/ 32K $784 

w/ 48K $869 

ATARI® 400 W/16K $350 

ATARI® 850lnterface $175 

ATARI® 830 Modem $159 

ATARI 810 Disk Drive $460 

ATARI 410 Recorder $79 

Cartridges $35 each, any Ihree for S99.95 

Asteroids • Centipede • Missile Command • Pac- 
Man • Space Invaders • Super Breakout • Computer 
Chess 

PILOT (COMPLETE) $99 

PILOT HOME PKC $63 

STAR RAIDERS CART $38 

CAVERNS OF MARS $31 

MUSIC COMPOSER CART $45 

ENTERTAINER PKC $83 

PROGRAMMER PKC $56 

COMMUNICATOR PKC $320 

PKC A -ATARI* 800 w/48K, 850 Interface, 810 Disk 
Drive, Epson MX-80 Printer W/CRAFTRAX& Cable, ,$1990, 
PKC B - ATARI* 800, w/lbK, 410 Program Recorder, Anv 

3, $35 Cartridges & Pair of Joysticks $«77, 

PKC C - ATARI® 400 w/16K, 410 Program Recorder, Pro- 
grammer Pkg $475 

PKC D - ATARI* 400 w/16K. Entertainer Pkg, Any 2, $J5 
Cartridges $494 

Add 1% for shipping & handling 
Michigan residents add 4% sales tax. 
ATARI® & are trademarks of ATARI®,lnc 

WE ALSO BUY AND SELL USED ATARI® 
EQUIPMENT. WRITE TO US. 

Computer's Voice™ 

software for the ATARI® 
400/800 computers 

Word Search Puzzle Maker — Makes word 
search puzzles and answers on a printer- 
24K cassette, 24K disk $24.95, 

Christmas Music — Sets 1, 2, & 3. Sing along 
with your ATARI®. Words and music (8 
carols each) for use with the ATARI® 
Music Composer cartridge, 16K cassette; 
16K disk $24.95 each. (Specify set number). 
MATHFAKS — Math drill program using 
color and sound. Optional accessories in- 
clude a printer and VOTRAX Type-N-Talk- 
24K cassette, 24K disk $24.95. 
Electronic Grade Book — Great classroom 
aid for teachers. Uses number or letter 
grades, weighted scores, screen or printer 
output, and more. 32K cassette, 40K disk 
64.95 

Light Pen - for the ATARI® 400/800 by 
Symtec. Suggested list price $149.95. Men- 
tion this ad and pay $134.95. 
AXALON-128K RAMDISK for 
ATARI® 800s only $420. 
Add $2 p/order for shipping 
Michigan residents add 4% sales tax 

Computer's Voice™ 

2370 Ella Dr. 
Flint, Ml 48504 
(313)238-5585 
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SS SS SS SS SS SS SS SS SS SS SB 

SS SS 

SS ATARI BASIC SS 

SS 'OPERATION: SABOTAGE' SS 

SS AUTHOR: RAV SATO SS 

SS TRANSL: RICH BOUCHARD SS 

SS COPYRIGHT iC) 1982 SS 

SS SS 

SS SS SS SS SS SS SS SS SS SS SS 

Jump to program initialization. 

I GOTO 2620 

Decode and print output. 

4 IF P*="" THEN RETURN 

5 FOR P=N1 TO LEN(P$):? CHR»(ABS((i55t 
(P$(P)>"3"))-ASC(P$(P))))j:NE!(T P:? :R 
ETURN 

Encode input 

6 Vt="":IF VOt="' THEN RETURN 

7 FOR J=N1 TO LEN(V0«):V*(LEN<V$)+N1)= 
CHR*(ABS((155t(V0t(J)>"8"))-ASC(V0$(J) 
))):NEXT J: RETURN 
Auxiliary jump points 

8 GOSUB N4:G0T0 2520 

9 GOSUB N4:G0T0 LI 

Descriptions of individual rooms. 

10 A*="2H ZRIOLXP. 8SVIV RH Z YOFV 
YFG6LI1 SVIV":S=N2:RETURN 

20 A$="Z MZIILD XLIIR«LI":N=N1:S=N3:RE 

TURN 

30 A$="Z HZIILD 1(LIIRHLI":N=N2:S=N4:RE 

TURN 

40 A$="Z NZIILD )!LIIR«LI":N=N3:S=N5!RE 

TURN 

50 A$="Z HNZOO ILLN":N=N4:S=6:RETURN 

60 A»="Z HVXLMGZNRNZGRLM XSZNYVI":B$=" 

GSVIV RH Z YOFV YFGGLH SVIV":N=N5:S=7: 

RETURN 

70 A$="Z HNZOO HGLIZTV XSZNYVr:N=6:S= 

M8:li)= 12: RETURN 

80 A*="Z HNZOO XSZNYVI":N=7:S=N9:«=13: 

RETURN 

90 ft»="Z HNZOO VOVXGILHRX OZYL 

nGLIB':N=N8:S=10:H=14:RETURN 

100 A»="Z YRLOLTRXZO OZYLIZGLIB. GSV 

IV RH Z IVH YFGGLH LH GSV DZ00':N=N9:M 

=15: RETURN 

110 A*="Z HGLIZTV XSZNYVr:H=16:RETURN 

120 A*="Z OZITV XSZNYVI. GSVIV RH Z X 

ZYRMVG SVIV":S=13:«=17:E=7:RETURN 

130 fi$="Z HGIZMTV KFIKOV ILLN. GSV 

IV RH Z YOFV YFGGLH SVIV':N=12:S=14!H= 

18:E=N8:RETURN 

38~Jk 



140 A$="Z HNZOO LUURXV":N=13:S=15:E=N9 

: RETURN 

150 A$="Z HNZOO ILLN ORGS Z XZIH GZY 

OV RN GSV XVHGVI":N=14:S=16:H=20:E=10: 

RETURN 

160 A$="Z OZITV LUURXV. GSVIV RH ZNVH 

P SV1V":N=15:W=21:E=11:RETURN 

170 A$="Z LUURXV ORGS Z OZITV HVHP":S= 

18: E=12: RETURN 

180 A$="Z HGLIZTV ILLN°:N=17:S=19:E=13 

: RETURN 

190 A»="Z OZITV SZ00":N=1B:S=20:RETURN 

200 A$="ZN VNGVIGZRMNVNG ILLN. Z HXI 

VVN IVHGH L« GSV DZOO":B»="GSVIV RH Z 

YOFV ZHW Z IVW YFGGLH MVZI GSV HXIVVM" 

202 N=19:S=21:E=15:RETURN 

210 A»="Z WZGZ IVXLIM HGLIZTV ILLN":N= 

20:E=16:RETURN 

220 A$="IZHZI XLHGILO. GSVIV RH Z HNZ 

00 HXIVVH SVIV:S=23:H=27:RETURN 

230 A$="Z NVHRXZO HGZGRLH. GSVIV RH 

Z OZITV GZYOV SVIV:N=22:S=24;W=28:RET 

URN 

240 A*="Z HVXFIRGB HGZGRLI1":N=23:RETUR 

N 

250 A«="Z IZHRL ILLN" :S=26:H=30: RETURN 

260 Ai="Z HNZOO ILLN. GSVIV RH Z HZU 
V R« GSV HLFG5 DZ00":N=25:M=31:RETURN 
270 A$="GSV ILYLG XLMGILO XVHGVI. 8SV 
IV RH Z HNZOO XLMGILO XLNKFGVI NLF 
I16VW R« GSV DZ0O":B$="":W=32:E=22 
272 RETURN 

280 At="GSV DVZKLNH HGLIZTV ILLN":S=29 
:W=33:E=23: RETURN 

290 A$='Z 0RYIZ1B":N=28:S=30:W=34:RETU 
RN 

300 A»="Z HVXFIRBB XSVXP ZIVZ":N=29:M= 
36: E=25: RETURN 

310 A»="Z HNZOO ILLN ORGS Z MVHP. Z H 
RTM IVZHH" 

312 B$="'KIVHHFIV GL IVZXGLI,' Z YOFV 
YFGGLH RH OLXZGVW FMHVI GSV HRTI1":E=2 
6: RETURN 

320 At="OZFHXS XLNGILQ. GSVIV RH ZHVH 
P SV1V':S=33:H=37:E=27: RETURN 
330 A*="Z HNZOO XLIIRHLr:N=32:S=34!E= 
28: RETURN 

340 fi$="Z HGIZMTV YOFV ILLN. GSVIVRH 
Z IVH YFGGLH SVIV°:N=33:S=35:E=29:RETU 
RN 

350 A*="Z GRUB HGLIZTV ILLN":N=34:II=40 
: RETURN 

360 A$="Z HNZOO XSZNYVI. Z HLLI DVH 
G OVZHH GL GSV MFXOVZI IVZXGLI':E=30:R 
ETURN 

370 A»="Z HNZOO, HZIILD XLIIRHLI":N=42 
:E=32: RETURN 
380 A$="GSV XLNKFGVI XVMGVI. GSVIVRH 
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I HNZOO HDLG RM GSV XLNKFGVI ■:S=39: RET 

URN 

390 A*="GSV XSVNRXZO 0ZY.":N=3B:S=40:R 

ETURN 

400 A«="GSV IVZXGLI XLHGILO XVHGVI. GSV 

IV RH Z YOFV YFGGLH ZHH Z IVH LHV. Z H 
RTH HZBH IVZXGLI XLHGILO - ' 

402 A$(LEN(A$)+N1)=MVN=LH, YOFV=LUU": 
N=39:E=35: RETURN 

410 At='GSV HFXOVZI IVZXGLI. Z XLN 
KFGVI IVHGH LH GSV DZ00":E=36:RETURN 
420 A$="GSV DVHG VHH LU Z OLHT XLI 
IRHLr':S=37:E=43:RETURN 
430 A*="GSV VZHG VHH LU Z OLHT XLI 
IRHLI":W=42:EM4:RETURN 
440 A*="Z HVXFIRGB XVHGVI":H=43:E=45:R 
ETURN 

450 At="Z HNZOO OZFHXS ZIVZ':Bt="GSVIV 
RH Z HNZOO H0L6 HVCG GL GSV OZFHX 
STZGV":H=44: RETURN 

Extended descriptions of current 
location 
460 REM 

470 IF A=10 AND (D3=N1 OR D3=N2) THEN 
C«="GSV NLHHGVI'H XZTV RH LKVH" 
480 IF A=12 AND D5=N0 THEN C$="GSV XZY 
RHVG RH OLXPVH" 

490 IF A=12 AND D5=N1 THEN C«="GSV XZY 
RHVG RH LKVH" 

500 IF A=20 AND D6=N0 THEN C$="GSV HXI 
VVH RH YOZHP" 

510 IF A=20 AND D6=N1 THEN C»='Z NLERV 
RH YVRHT KOZBVH LH GSV HXIVVH" 
520 IF A=26 AND D9=N0 THEN C«="GSV HZU 

V RH OLXPVH" 

530 IF A=26 AND D9=N1 THEN C$="GSV HZU 

V RH LKVH" 

540 IF A=27 AND E2=N0 THEN C$="GSV XLN 

KFGVI RH ZXGREV 

550 IF A=27 AND E2=N1 THEN C*="GSV XLN 

KGVI RH HVHGILBVH" 

560 IF A=36 AND E6=N0 THEN C*="GSV IVZ 

XGLI HLLI RH URINOB OLXPVH" 

570 IF A=36 AND E6=N1 THEN C$="GSV IVZ 

XGLI HLLI RH LKVH":H=41 

580 IF A=45 AND E9=N0 THEN C*="BSV OZF 

HXS TZ6V RH XOLHVH" 

590 IF A=45 AND E9=N1 THEN C$="GSV OZF 

HXS TZ6V RH LKVfl":E=46 

Generate list of visible items and 

available exits for current 

location. 

600 A»(LEN!A$)+N1)=".":IF LEN(B»).>N3 T 

HEN B«(LEN(B$)+N1)="." 

610 IF LEN(C*)>N3 THEN C$(LEN(C$)+N1)= 

650 IF NONO THEN E«="HLIGS " 

660 IF SONO THEN E$(LEN(E$)+N1)="HLFG 

S " 

670 IF H>NO THEN E$(LEN(E$)+N1>="DVHG 



680 IF E>NO THEN E*(LEN(E*)+N1)="VZHG 

■ 

690 IF £$<>"• THEN E$=E«(N1,LEN(E«)-N1 

) 

Describe current location, visible 

items, and available exits. 

700 GRAPHICS NO: PRINT "YOU ARE IN ";:P 

«=A*:60SUB N4! PRINT :IF B$<>"' THEN P* 

=B$:GOSUB N4 

710 IF C«<>"' THEN P$=C»!60SUB N4 

720 Pt=" ": PRINT : PRINT "OBJECTS YOU C 

AN SEE:":FOR T=N1 TO 16 

722 IF A=I(T) THEN P*=I*(IP(T),IP(T+N1 

)-Nl):GOSUB N4 

730 NEXT T:IF P«=" " THEN P$="ML6SR«T" 

-.GOSUB N4 

732 ? !? "EXITS: ":P*=E«:GOSUB N4!? 

Print out additional w^arnings, 

messages, etc. 

740 IF (A=40 OR A=35 OR A=30 OR A=31) 

AND I(14)=N0 AND F3=N0 THEN P$="GSV HN 

ZOO YOZXP HVERXV RH YORMPRHT": GOSUB N4 

750 IF A=36 AND 1(N4)=N0 AND F3=N0 THE 

N P$="GSV HN200 YOZXP HVERXV RH UOZHSR 

MT YIRTSGOB":GOSUB N4 

760 IF F4=N0 THEN 770 

762 P$="GSV XLNKF6VI HZBH:":60SUB N4;P 

«=STR$(F4):P$(LEN(P$)tNl)=' NRHFGVH FH 

GRO WVH6IFXGRLM":G0SUB N4 

770 IF D3=N1 THEN PRINT :P»="t » « ZOR 

VH NLMH6VI ZGGZXPRMT t t »": GOSUB N4 

780 IF D7=N1 OR E0=N1 OR E3=N1 OR E7=N 

1 THEN PRINT :P$="t t t HVXFIRGB KZGIL 

ZGGZXPRMT I » fiGOSUB N4 

Get and interpret command. 

790 PRINT :PRINT "COHHAND";: INPUT VO$s 

GOSUB 6:PRINT 

800 FOR T=N1 TO N4:IF V*=VBt(T»N3-N2,T 

tN3-N2) THEN V*=VB*(TtN3-N2,TtN3) 

810 NEXT T 

820 IF LEN(V*)<N3 THEN 700 

830 V1$=V$(N1,N3):V2$=V*(LEN(V$)-N2) 

840 FOR T=N1 TO 17: IF Vlt=VB$(TtN3-N2, 

T»N3) THEN V1=T 

850 NEXT T:IF V1=N0 THEN P*="R HLN'G F 

I1HVIHGZMW DSZG BLF DZ«G,":GOSUB N4:G0T 

LI 

860 FOR T=N1 TO 16: IF V2$=I$(IP(T+N1)- 

N3,IP(T+N1)-N1) THEN V2=T 

870 NEXT T 

880 ON VI GOTO 900,940,980,1050,1130,1 

310, 1370, 1390, 1560, 1620, 1660, 1790, 1860 

,1910,2010,2170,2250 

890 GOTO LI 

Command handler routines. 

900 IF N=N0 THEN GOTO L2 

910 IF D3=N1 THEN P*='GSV NLHHGVI YOLX 

PH GSV VCRG": GOSUB N4:G0T0 L2 



920 IF D7=N1 OR E3=N1 THEN GOTO L2 

930 A=N:60T0 LI 

940 IF S=N0 THEN GOTO L2 

950 IF S=24 AND D8OH0 AND E20N1 THEN 

D7=N1: GOSUB L4 
960 IF S=30 AND E4<.>N0 AND E20N1 THEN 

E3=N1: GOSUB L4 
970 A=S:GOTO LI 
980 IF W=N0 THEN GOTO L2 
990 IF D3=N1 THEN P$="GSV NLHHGVI YOLX 
PH GSV VCR6":G0SUB N4:G0T0 LI 
1000 IF E0=N1 OR E3=N1 OR E7='N1 THEN G 
OTO L3 

1010 IF «=41 AND F3=N0 THEN P»="IZHRZG 
RLM UILN GSV IVZXGLI SR8H BLF":GOSUB N 
4: SOTO 2520 

1020 IF H=30 AND E4ON0 AND E20N1 THE 
N E3=N1:60SUB L4 

1030 IF W=27 AND E8ON0 AND E2<.>N1 THE 
N E0=N1: GOSUB L4 
1040 A=M:GOTO LI 
1050 IF E=N0 THEN GOTO L2 
1060 IF E0=N1 OR E3=N1 OR E7=N1 THEN 6 
OTO L3 

1070 IF E=27 AND ElONO AND E20N1 THE 
N E0=N1: GOSUB L4 

1080 IF E=44 AND E8ON0 AND E2<.>N1 THE 
N E7=N1:G0SUB L4 
1090 A=E:GOTO LI 
1100 P$="GSV HVXFIRGB TFZIH YOLXPH GSV 

VCRG":60SUB N4:G0T0 LI 
1110 P$="GSVIV RH HL DZB GL TL GSZG HR 
IVX6RLI1'':G0T0 N9 

1120 P*="Z HVXFIRGB ZMHILRH ZDZRGH BLF 
": GOSUB N4: RETURN 

1130 IF AONl OR V2t<>"LXP" THEN 1140 
1132 P*="GSV ZRIOLXP LKVMH ZI1W BLF ZIV 

YOLDM LFG RHGL GSV EZXFFN LU HKZXV" 
: GOSUB N4:60T0 2520 
1140 IF A012 OR V2$<>"HVG" OR D5ON0 
OR I(N2)=N0 THEN 1150 
1142 P$="BLF QFHG ZIVH'G HGILMT VHLFTS 

GL ULIXVRB LKVM": GOSUB N4:G0T0 LI 
1150 IF A012 OR V2$<>"HVG" OR D5ON0 
OR I(N2)<>N0 THEN 1160 
1152 P$="GSV XILDYLD SVOKVH. GSV XZYR 
tlVG RH HLD LKVH":BOSUB N4:D5=N1:I(N5 
)=ABS(I(N5)):G0T0 LI 
1160 IF A=12 AND V2$=°MVG" AND D5=N1 T 
HEN P*="GSV XZYRHVG RH ZOIVZWB LKVH":G 
OSUB N4:G0T0 LI 

1170 IF A=16 AND V2$="VHP" THEN ? OK*: 
I(6)=ABS(I(6)):GOT0 LI 
1180 IF A=17 AND V2*="VHP" THEN PRINT 
0Kt:I(7)=ABS(I(7)):6QT0 LI 
1190 IF A=26 AND V2t='ZUV" AND D9=N1 T 
HEN P*="GSV HZUV RH ZOIVZHB LKVI1":60T0 

N4:G0T0 LI 
1200 IF A=26 AND V2*=»ZUV° AND D9=N0 T 
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HEN P*="R WLN'G SZEV GSV PVB GL LKVH G 

SV HZUV": GOTO N9 

1210 IF A=31 AND V2*="VHP" THEN P«="LP 

. BLF URHH HLGSRHT RI1HRNV":G0T0 N9 

1220 IF A=32 AND V2$="VHP" THEN PRINT 

0K$:I(14)=ABS(I(14)):60T0 LI 

1230 IF fi=36 AND V2*="LLr AND E6=N1 T 

HEN P*="eSV HLLI RH ZOIVZWB LKVH":G0T0 

N9 

1240 IF A036 OR V2*<>"LLr OR E6ON0 
THEN 1260 

1242 IF H6)<>N0 THEN P*="BLF HLH'G SZ 
EV GSV PVB GL GSV WLLI":GOTO N9 
1250 IF E5=N0 THEN P*=°GSV IVZXGLI YFR 
OWRMT RH MLG KIVHHFIRAVH. B 

LF ZIV YOLDM RMGL GSV EZXFFN":GOTO N8 
1260 IF A=36 AND V2*="LLr' AND I(6)=N0 

THEN P$="GSV «LLI RH MLD LKVH":E6=N1: 
GOTO N9 
1270 IF A=41 AND V2*="MV0" THEN P*="6S 

V KZMVO RH URINOB 0LXPVH":G0T0 N9 
1280 IF A=45 AND V2*="LXP" AND E9=N1 T 
HEN P$="GSV ZRIOLXP RH ZOIVZHB LKVM":G 
OTO N9 

1290 IF A=45 AND V2t="LXP" AND E9=N0 T 
HEN Pt="6SVIV ZIVM'G ZMB ERHRYOV XLMGI 
LQH":GOTO N9 

1300 P$="R XZM'G WL GSZG":GOTO N9 
1310 IF V2*="GVI" OR V2*="LRW" THEN P* 
="WLM'G YV IRHRXFOLFH":GOTO N9 
1320 IF V2=N0 THEN P*="R XZM'G «L GSZG 
":GOTO N9 

1330 IF I(V2)=N0 THEN Pt="BLF ZOIVZWB 
SZEV GSZ6":60T0 N9 

1340 IF AOHV2) THEN Pt="R WLM'G HVV 
RG SV IV": GOTO N9 

1350 IF P4>=N8 THEN P*=»HLIIB, BLF XZM 
'G XZIIB ZMBGSRHT NL IV: GOSUB N4:G0T0 
LI 

1360 P4=P4+N1:I(V2)=N0:PRINT 0K$:60T0 
LI 

1370 IF V2=N0 THEN P$="BLF WLM'G SZEV 
GSZ6":G0T0 N9 

1380 P4=P4-N1:I(V2)=A:PRINT 0K$:G0T0 L 
1 

1390 IF I(N5)<>N0 THEN P*="BLF WLM'G S 
ZEV Z DVZKLM":G0T0 N9 
1400 IF A=N1 AND V2t="LXP" THEN P$="BL 
F ZIV YOLDM LFG LU GSV ZRIOLXP RMGL GS 

V EZXFFN LU HKZXV":GOTO NB 
1410 IF A=27 AND V2*="GVr THEN P«="BS 

V XLNKFGVl RH WVHGILBVW":E2=N1:EO=NO:G 
OTO N9 
1420 IF A=38 AND V2*="GVr THEN P«="GS 

V HSLG IVUOVXGH LUU LU GSV XLNKFGVr;G 
OTO NB 
1430 IF A=41 AND V2t="GVr THEN P$="BS 

V DSLOV MFNXOVZI IVZXGLI RH VCKOLWRMT" 
:GOTO N8 
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FAST-CHIP 

• Increases the formating speed of 
810 disks by 10 to 40%. 

• Plug compatible 

• Easy to install 

ORDERING INFORMATION 

Available atyour local Atari dealer 
or Atari center for only $39.95 
(installation may be extra). 

If not available in your area call BINARY 
directly to place your order. Our order lines 
are open 24 hours per day, 7 days per week. 

Shipping and handling charges: 

North America: Add $2.50 
Outside N.A.: Add 10% 
Michigan Residents; Add 4% tax. 
C.O.D.: Add $2.00 

Payment Methods: 

VISA, Master Charge, AMEX, cash, 
certified check, personal check 
(allowforclearance), money order. 

Look for Binary Software Products at 
your local computer store. 

Dealer Inquiries invited 

COMPUTER SOFTWARE 

3237 Woodward Ave. 

Berkley, Ml 48072 

(313) 548-0533 



BINARY CORPORATION 



40 Jl^ 



1440 IF V2$="RHH" OR V2t=»YL6" OR V2«= 

"ILQ" OR V2$="IWH" OR V2$="2IW" THEN V 

2$=°LR«" 

1450 IF V2$<>"GVI" AND V2$<>"LRH" THEN 

P$="BSV OZHVI HSLB SZH ML VUUVXG":GOT 
N9 
1460 IF V2*="GVI" AND D3=N0 THEN P»="R 

MLM'G HVV ZHB NLMHBVI SVIV":GOT0 N9 
1470 IF V2$="LRW" AND D7=N0 AND EO=NO 
AMD E3=:N0 AND E7=N0 THEN P*="R HLM'G H 
W ZMB ZI1WILRHH SVIV'sGOTO N9 
1480 T=INT(100tRND(N0))+l:IF T>P2+P3+5 
THEN P$="BLF URIV ZHH NRHH":60T0 N9 
1490 IF D30N1 THEM 1500 
1492 F$="BLF SRG GSV NLNHGVI":60SUB N4 
!D4=D4-((10+P2+P3)/N2):IF D4>N0 THEN 1 
540 

1494 D3=N0:D4=N0:P$="BLF SZEV PROOVH R 
6": GOTO N9 

1500 IF D70N1 THEN 1510 
1502 P$="BLF SR8 BSV ZHHILRW°:GQSUB N4 
:D8=D8-(5+F2+P2)/N2:IF DB<=NO THEN D7= 
NO:D8=N0:P$="R6 RH HVHG1LBVH":G0T0 N9 
1504 GOTO 1540 
1510 IF EOONl THEM 1520 
1512 P$="BLF SRG BSV ZHWILRH'sGOSUB N4 
:E1=E1-(N5+P2+P3)/M2:IF E1<=N0 THEN EO 
=N0:E1=N0:P*="RG RH HVHGILBVW":GOTO N9 
1514 GOTO 1540 
1520 IF E30N1 THEN 1530 
1522 P$="BLF SRG GSV ZM«ILRH":GOSUB N4 
:E4=E4-(N5+P2+P3)/N2:IF E4<=N0 THEN E3 
=N0:E4=N0:P$="RG RH WVHBILBV«':GOTO N9 
1524 GOTO 1540 
1530 IF E70N1 THEN 1540 
1532 P$="BLF SRG GSV ZHHILRW":GOSUB N4 
:EB=EB-(N5+P2+P3)/M2!lF EB<=NO THEN E7 
=N0:E8=N0:P«="RG RH HVHGILBVH":GOTO N9 
1534 GOTO 1540 

1540 IF D3=N1 THEN P$="RG RH HBROO ZOR 
EV":GOTO N9 

1550 P$="GSV ZHMILRW RH H8R00 UFNXGRLH 
RHT":60TO N9 

1560 IF V2=N0 THEN P$=°R XZH'G HL GSZG 
":G0T0 N9 

1570 IF I(V2)<>N0 THEN P*="R HLH'G SZE 
V BSZB':GOTO N9 

1580 IF V2<.>N9 AND V2014 THEN P»="R X 
ZH'B HL 6SZG":G0T0 N9 
1590 IF (V2=N9 AND A=44) OR (V2=14 AND 

A=38) THEN P*="I1LSSRMT SZKKV«H":GQSUB 

N4 

1600 IF V2<.>N9 OR A038 THEN 1610 
1602 F4=35:P$="GSV XLNKF6VI IVKORVH: ' 
YZHV WVHGIFXG HVJFVHXV H6ZIGV«'":60SU 
B N4:P$="HVHBIFXGRLH RH: " 
1604 P$ (LEN (P$) +N1 ) =STR$ (F4) : P* (LEN (P» 
)+Nl)=" NRI1F6VH":P4=P4-N1:I(9)=100:G0T 
N9 
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1610 IF V2=14 AND A=45 THEN P»="GSV TZ 

GV LKVI1H":E9=N1:G0T0 N9 

1620 IF V2O10 THEN P»="HLM'G YV IRHRX 

F0LFH":G0T0 N9 

1630 IF KIOJONO THEN P$="BLF HLH'G S 

ZEV GSZG": GOTO N9 

1640 PRINT 0K*:I(10)=50:P4=P4-N1:P1=P1 

+N5+P3:IF P0<P1 THEN P0=P1 

1650 GOTO LI 

1660 IF A=N1 AND V2$="0FV" THEN P$='GS 

V ZRIOLXP LKVHH... BLF ZIV YOLDH LFGRM 

BL BSV EZXFFN LU HKZXV":GOTO N8 

1670 IF A=6 AND V2»="0FV' THEN P»='Z H 

GIZHTV, LIZMTV TOLD XLEVIH BLF ZHH GSV 

H UZHVH ZDZB":GOTO N9 

1680 IF A=10 AND V2»="IVU" AND D3=N1 T 

HEN P$="HLGSRHT SZKKVHH":GOTO M9 

1690 IF A=10 AND V2*="IVH" THEN D3=N1; 

P*="ZH ZORVtl NLHHGVI RH IVOZHVH. RG R 

H ZGGZXPRHT BLF":GOTO N9 

1700 IF A=13 AND V2$="0FV THEN A=34:P 

$="Z UOZHS LU ORTSG GVNKLIZIROB YORHHH 

BLF': GOTO N9 
1710 IF A=20 AND V2$="IVH" AND D6=N0 T 
HEN P$="MLGSRHT SZKKVHH":GOTO N9 
1720 IF A=20 AND V2«="IVH" THEN D6=N0: 
P«="BSV HXIVVH TLVH YOZHP'sGOTO N9 
1730 IF A=20 AND V2$="0FV" THEN D6=N1: 
P*="GSV HXIVVH ORTSGH FK":60T0 N9 
1740 IF A=31 AND V2*="0FV" THEN E5=N1: 
PRINT OK*:BOTO LI 

1750 IF A=34 AND V2$="IVH" THEN A=13;P 
$='Z UOZHS LU ORTSG GVNKLIZIROB YORHHH 

BLF": GOTO N9 
1760 IF A=40 AND V2t="IVH" THEN F3=N0: 
PRINT OK$:GOTO LI 

1770 IF A=40 AND V2$="0FV" THEN F3=N1: 
PRINT 0K»:60T0 LI 
1780 P$="HLGSRHT SZKKVHH":GOTO N9 
1790 IF A=22 AND V2»="VVH" THEN Pt="BL 
F XZH HVV HLGSRMT LU RHGVIVHG LH GSVIZ 
HZI":GOTO N9 

1800 IF V2=N0 THEN P$='R HLH'G SZEV 6S 
ZG":GOTO N9 

1810 IF I(V2)<.>N0 AND A<>I(V2) THEN P« 
="R HLH'G SZEV GSZS":GOTO N9 
1820 IF V2=N3 OR V2=13 THEN P*="R HVV 
HL6SRHT HKVXRZ0":60T0 N9 
1830 IF V2=N9 THEN P$="HLIIB. LHOB Z X 
LNKF6VI XZH IVZH Z KILTIZN':60T0 N 
9 

1840 IF V2=16 THEN P$="GSV KOZMH ZIV H 

VZOVH...LHOB XLNNZHH XZH LKVM GSVN": 

GOTO N9 

1850 P$='R XZH'G IVZH GSZG": GOTO N9 

1360 GRAPHICS NO:P$="l I » KOZBVI'H RH 

EVHGLIB » t t":GOSUB N4:PRINT 

1870 FOR T=N1 TO 16: IF I(T)=NO THEN P« 

=I$(IP(T),IP(T+N1)-N1):G0SUB N4 



1880 NEXT T 

1B90 CLOSE INhOPEN iNl,N4,N0,"K:":6ET 
*N1,T:CLDSE INI 
1900 SOTO 2410 

1910 IF V2=N0 THEN P*="R XZH'G WL GSZG 
"iBDTO N9 
1920 IF I(V2)<>M0 THEN P*="R HLN'G SZE 

V GSZS":GOTO M9 

1930 IF V20N1 OR A012 OR D5ON0 THEN 

1940 
1932 P»="GSV XZYRHVG RH HVH6ILBVH":D5= 
N1:I(N1)=100:I(N5)=ABS(I(N5)):P4=P4-N1 
iGOTO N9 
1940 IF (V2=N1 OR V2=15) fiND (D3=N1 OR 

D7=N1 OR E0=N1 OR E3=N1 OR E7=Ni) THE 
N I(V2)=100:P4=P4-100:G0T0 1490 
1950 IF (V20N1 AND V2015) OR AONl T 
HEN 1960 

1952 P$="GSV ZRIOLXP RH IIVHGILBVH...BL 
F ZIV YOLDH LFG RUGL GSV EZXFFN LU 
HKZXV":GOTO NB 

1960 IF <V2<>N1 AND V2015) OR A036 
R E6ON0 OR E5ON0 THEN 1970 
1962 P*="GSV HLLI RH KVHGILBVH...BLF Z 
IV YOLDH RHGL GSV FHKIVHHFIRAVM IVZXGL 
I YFR0HRI1T":60T0 N8 

1970 IF (V20N1 AND V2015I OR A036 
R E6ON0 OR F3ON0 THEN 1980 
1972 Pt=°GSV NLLI RH HVHGILBVH. BLF Z 
IV YLNYZIWVK DRGS IZHRZGRLH":60T 

N8 

1980 IF (V2=N1 OR V2=15) AND A=36 AND 
E6=N0 THEN P$="GSV «LLI RH NVHGILBVH's 
E6=Nl:I(V2)=100:P4=P4-Nl!G0T0 N9 
1990 IF V20N1 AND V2015 THEN 2000 
1992 P$="GSV ":P»(5)=I$(IPIV2),IP(V2+N 
1)-N1):60SUB N4:Pt=°SZH NL ZUUVXG":I(V 
2)=100:P4=P4-N1:G0T0 N9 
2000 GOTO 1370 

2010 IF V2=N0 THEN P»="R XZH'G HL GSZG 
":GOTO N9 
2020 IF I(V2)<>N0 THEN P$="R WLH'G SZE 

V GSZG':GOTO N9 

2030 IF V2=N5 AND D3=N1 THEN V2»="GVr 

2040 IF V2=N5 AND (D7=N1 OR E0=N1 OR E 

3=N1 OR E7=N1) THEN V2*="LRH" 

2050 IF V2=N5 THEN 1390 

2060 IF V2=N4 AND F3=N0 AND (A=40 OR A 

=35 OR A=30 OR A=31) THEN P*="8SV YOZX 

P HVERXV RH YORMPRMT" iGOTO N9 

2070 IF V2=N4 AND F3=N0 AND A=36 THEN 

P«="GSV VOZXP HVERXV RH UOZHSRHT YIRTS 

GOB": GOTO N9 

2080 IF V2=N4 THEN P$="GSVIV ZIVH'G ZN 

B ERHRYOV XLUGILOH LU GSRH HVERXV: GO 

TO N9 

2090 IF V2012 THEN 2100 

2092 I(12)=A:P4=P4-Nl!l$(IP(12),IP(12) 

+N4)="ZINVH":F2=35:P$="GSV YLNY DROO V 



CKOLWV RN 35 NRHFGVH":GOTO N9 

2100 IF V2=N2 AND A=12 AND D5=N0 THEN 

D5=N1:P*="GSV XZYRHVG RH HLD LKVH":I(N 

5)=ABS(I(N5)):G0T0 N9 

2110 IF V2=N2 AND A=12 AND D5=N1 THEN 

P»="6SV XZYRHVG RH ZOIVZHB LKVH":GOTO 

N9 

2120 IF V2=7 AND A=26 AND D9=N0 THEN D 

9=N1:I(16)=ABS(H16)):P$='6SV HZUV LKV 

HH':GOTO N9 

2130 IF V2=ll THEN 2140 

2132 P»="DSZ6 «L BLF DZNG MV GL HL DRG 

S GSV":60SUB N4:P$=I*(IP<V2),IP(V2+N1) 

-N1):P$(LEN(P*)+N1)="?'':G0T0 N9 

2140 IF I(N8)<>N0 THEN P«="GSVIV ZIVH' 

G ZMB YZGGVIRVH ULI GSV IZHRL":GOTO N9 

2150 IF F2=N0 THEN 2160 

2152 P»="Z ELRXV HZBH 'YLNY HGZGFH: ": 

P$(LEN(P«)tl)=STR*(F2):P«(LEN(P$)+l)=" 

NRI1FGVH":G0SUB N4 

2154 P$="FNGRO HVGLMZGRLM' "iGOTO N9 
2160 P»='GSV IZHRL RH HR0VNG":60T0 N9 
2170 GRAPHICS N0:Pt="» t » KDZBVI'H HG 
ZGFH t I r:G0SUB N4:PRINT 
2180 P$='XFIIVH6 SR6 KLRHGH = "iPJCLEN 
(P*)+N1)=STR$(P1):G0SUB N4 
2190 P$="HVCGVIRGB ZG8IRYFGV= ':P«(LEN 
(P«)+N1)=STR«(P2):GQSUB N4 
2200 P$="OFXP Z6GIRYF6V = "rPtlLEN 
(P*)+N1)=STR*(P3):G0SUB N4 
2210 REM 
2220 CLOSE iNl:OPEN iNl,N4,N0,"K:"i6ET 

tNl,T: CLOSE INI 
2230 REM 
2240 GOTO 2410 

2250 GRAPHICS NO:P$="GAME OVER-iGOSUB 
N4:G0T0 2530 

Update player status, and conduct 
combat if appropriate. 

2260 IF F2ON0 THEN F2=F2-N1:IF F2<=N0 

THEN 2440 
2270 IF F4ON0 THEN F4=F4-N1:IF F4<=N0 

THEN 2480 



2280 IF PKPO THEN P5=P5+0.5:IF P5=N1 

THEN P5=N0:P1=P1+N1 

2290 IF D3=N0 AND D7=N0 AND E0='N0 AND 

E3=N0 AND E7=N0 THEN 2400 

2300 T=INT(RND(NO)tlOO+Nl):PRINT 

2310 IF D3=N1 THEN P«="6SV NLMHGVI ZGG 

ZXPH":GOSLIB N4 

2320 IF D30N1 THEN P$="GSV HVXFIR6B Z 

MUILRU HSLLGH...'':60SUB N4 

2330 IF T>80-(P2+P3) THEN P$='RG NRHHV 

H":GOSUB N4:G0T0 2400 

2340 P1=P1-INT(RND<N0)IN5)-INT(RND(N0) 

«N5)-INT(RND(N0)tN5)-INT(RND(N0)»N5)-2 

4+P3 

2342 IF D30N1 THEN P1=P1+N5 

2344 IF PKNO THEN 2520 

2390 P$="BLF ZIV SRB":GOSUB N4 

2400 IF V1=0 OR VI >4 OR D3+D7+E0+E3+E7 

>0 THEN FOR ZZ=N1 TO 150: NEXT ZZ 

Initialize for new turn and jump 
to appropriate room description. 

2410 V0*="":V$="":Vl*="':V2«=""iVl=N0i 

V2=N0:At="":B$="":C*=""iD*=":E«="":N= 

N0:S=N0:H=N0:E=N0 

2420 IF A>45 THEN 2560 

2422 GOSUB A«10:G0T0 470 



Evaluate end-game conditions and 
display appropriate messages. 



2440 GRAPHICS NO: IF A=46 THEN F2=-liG0 

TO 2560 

2450 P$="GSV KSLGLM YLNY VCKOLHVH..,GS 

V VHGRIV XLNKOVC RH HVHGILBVH": GOSUB N 

4 

2460 P$='BLF SZEV YVVH PROOVH YB GSV U 

LIXV LU GSV YOZHG": GOSUB N4 

2470 PRINT : PRINT :GOTO 2530 

2480 GRAPHICS NO: IF A=46 THEN F4=-l:60 

TO 2560 

2490 IF A=38 THEN P«="GSV XLNKFGVI UOZ 



MOVING? 



If you're planning to move, please let us know at least 
six weeks in advance. This will help us to change your 
address insuring you with prompt and accurate service 
on your subscription. Attach your current mailing label 
filling in your name and NEW address in the space 
provided. 



New Address . 

City 



-Zip_ 



; 



Send old label with your 

name and NEW address to: 

SoftSide 

100 Pine Street 

Holmes, PA 19043 



C 
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HSVH YIRTS60B, VNR66RHT HKZIPH 


D(N0)»N2):NEXT T 






2770 DATA KOZHGRX VCKOLHREV,0,XILDYZI, 


Rli ZOO HRIV)(GRLnH":GOSUB N4 


2730 P3=10:F0R T=N1 TO P3:P3=P3+INT(RN 


7,XZ0VM«ZI,8,HNZ00 YOZXP HVERXV,9,0ZHV 


2500 P»="6SV XLNKOVC HFHHVMOB VCKOLHVH 


D(N0)tN2):NEXT T 






I KRHGL0,-12,HVXFIRGB PVB,- 


16 


RHGL NROORLHH LU KRVXVH":60SUB N4 


2740 D4=50; D8=D4: E1=D4 : E4=D4 : EB=D4: FOR 


2772 DATA VOVXGILHRX XLHGILO YZGLH,-!? 


2510 P$="BLF ZIV PROOVH YB GSV UZOORHT 


T=N1 TO D4:D4=D4H 


HNT(RND(N0)»N2):D8=D 


,YZGGVIRVH,18,XLNKFGVI HVHGIFXG KILTIZ 


HVYIRH ZILFMH BLF":GOSUB N4:PRINT iP 


8+INT(RND(N0)»N2) 






N,21,HR0EVI KR00,23 




RINT :GOTO 2530 


2742 E1=E1+INT(RND(N0)»N2) 


E4=E4+INT(R 


2774 DATA KLIGZYOV IZIiRL,25,0ZITV KSLG 


2520 PRINT :P»="BLF ZIV MVZW!":GOSUB N 


ND(N0)tN2):E8=E8+INT(RND(N0)tN2):NEXT 


LM YLNY,28 




4 


T 






2780 DATA TZOZXGRX XSZI6,32,0ZFHXS HBH 


2530 PRINT : PRINT "DO YOU NflNT TO PLAY 


2750 A=N1:P4=N1 






GVN XZHHVG6V,-32,«RGILT0BXVIRN,39,HVXI 


AGAIN";: INPUT A$ 


2760 GOTO 2410 






VG KOZHH, -26 




2540 IF A$(N1,N1)="B" THEN RUN 








2790 DATA ULIHLFDVHVZHLKVTVGHILHSLRHHV 


2550 GRAPHICS NO: END 


Item and verb data 






ZGKFHIVZRHE6SIFHVHGZJFR 




2560 P*="GSV HKZXV HSRK HFHNVMOB ORUGH 
RMGL LIYRG ZILFHH GSV KQZI1VG":G0SU 






















6 N4 


ATARI® SWAT TABLE FOR: 






OPERATION: SABOTAGE (Modified Parameters: NU = 5. B = 200) 




2570 IF (F2=N0 OR (F2ON0 AND I(12)<>4 












D) AND F4=N0 THEN 2574 












2572 GOTO 2580 


SWAT 




SWAT 




2574 P$="BLF URNII'G HVHGILB GSV YZHV. 
BLF SZEVUZROVH BLFI NRHHRLn.':GOSUB N 


LINES CODE 


LENGTH 


LINES CODE 


LENGTH 






176 








1 - 7 


MH 


1420 - 1450 BH 


259 


4: PRINT :G0T0 2530 


8 - 30 


NO 


174 


1460 - 1490 UL 


217 


2580 Pt="UILN Z HRHGZMXV, BLF XZM HVV 


40 - 70 


VM 


241 


1492 - 1502 TY 


231 


GSV ZDRVNYZHV VCKOLHV":GOSUB N4 


80 - 100 


NK 


229 


1504 - 1520 SZ 


153 


2590 IF I(16)<>N0 THEN P*="BLF WRHM'G 


110 - 130 


YN 


241 


1522 - 1532 AT 


216 


IVXLEVI GSV HVXIVG KOZHH ftVVHVH YB H 


140 - 160 


RH 


249 


1534 - 1570 VN 


171 


GZI XLNNZMN':G0SUB N4: PRINT :G0T0 2530 


170 - 200 


SC 


291 


1580 - 1602 rv 


245 


2600 P«="NRHHRLM RH Z HFXXVHHI":GOSUB 


n#vn n-y/i 




283 


• uwv i UviL \j 1 


AHU 


N4 
2610 END 


202 - 230 


UE 


1604 - 1630 BK 


225 


240 - 270 
272 - 300 


RE 
FI 


303 
207 


1640 - 1670 BN 
1680 - 1700 NI 


242 
231 


Initialize workspace. Read in 


310 - 320 


NY 


222 


1710 - 1740 NN 


211 


items, and verbs. 


330 - 350 


QX 


217 


1750 - 1790 XF 


267 




360 - 380 


NS 


229 


1800 - 1840 DK 


277 


2620 CLR :DIH I$(300),I(16),IP(171,VB« 


390 - 402 


TY 


220 


1850 - 1890 PB 


174 


(51) 


410 - 430 


HJ 


222 


1900 - 1932 RZ 


201 


2622 DIN V$(20),V1$(3),V2$(3),A*(120), 


440 - 470 


KR 


217 


1940 - 1952 ZM 


201 


B*(70),C«(40),D«(40),E$(40),P$(120) 


480 - 520 


ZB 


244 


1960 - 1972 QA 


268 


2624 DIH Zt(40),0K«(3),V0»(20) 


530 - 570 


BD 


261 


1980 - 1992 KU 


218 


2626 N0=0:N1=1:N2=2:N3=3:N4=4:N5=5:N8= 


580 - 650 


NO 


206 


2000 - 2040 LN 


148 


8:N9=9:L1=2260:L2=1110:L3=1100:L4=1120 


660 - 700 


BQ 


168 


2050 - 2080 HA 


251 


:0K«='0K":GK*<N3)=CHR*(253) 


710 - 732 


SX 


174 


2090 - 2100 QS 


222 


2630 GRAPHICS NO 


740 - 760 


QE 


209 


2110 - 2132 CL 


260 


2640 PRINT ■ OPERATION: SABOTAGE BY 


762 - 780 


DU 


216 


2140 - 2154 AA 


204 


RAY SATO":? :? " ATARI VERSION BY 


790 - 830 


VN 


138 


2160 - 2200 RL 


237 


RICH BOUCHARD" 


840 - 880 


NL 


299 


2210 - 2250 QO 


96 


2650 I«="":FOR T=N1 TO 16:READ Z$:IP(T 


890 - 930 


FV 


101 


2260 - 2300 AU 


166 


)=LEN(I*)tl:I«(LEN(I«)+Nl)=Z*:READ Z:I 


940 - 980 


nx 


105 


2310 - 2342 BH 


216 


(T)=Z 


990 - 1030 


RV 


213 


2344 - 2410 FZ 


205 


2660 NEXT T:IP(T)=LEN(I»)+1 


1040 - 1080 


PH 


113 


2420 - 2460 Z9 


223 


2670 READ VBt 


1090 - 1130 


TJ 


186 


2470 - 2500 LS 


228 




1132 - 1150 


BT 


237 


2510 - 2550 OJ 


178 


Establish player attribute points. 


1152 - 1170 


TV 


212 


2560 - 2574 XK 


221 


Jump to first room. 


1180 - 1210 


EO 


261 


2580 - 2600 JX 


201 




1220 - 1242 


SH 


218 


2610 - 2626 SK 


374 


2700 P0=40:F0R T=N1 TO P0:P0=P0iINT(RN 


1250 - 1270 


SC 


235 


2630 - 2670 B6 


201 


D(N0)IN2):NEXT T 


1280 - 1310 


DB 


216 


2700 - 2740 VB 


217 


2710 P1=P0 


1320 - 1360 


NH 


209 


2742 - 2772 RE 


275 


2720 P2=10:F0R T=N1 TO P2:P2=P2+INT(RN 


1370 - 1410 


UB 


269 


2774 - 2790 EL 


185 


1 
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TRS-8a 



ss ss ss ss ss ss ss ss ss ss ss 



ss 




SS 


ss 


TRS-80 BASIC 


SS 


ss 


'OPERATION: SABOTAGE' 


SS 


ss 


AUTHOR: RAY SATO 


SS 


ss 


COPYRIBHT (C) 1982 


SS 


ss 




SS 



SS SS SS SS SS SS ss ss SS ss ss 

Jump to program initialization. 

2 GOT02610 

Decode and print output. 

4 IFP»=""THENRETURNELSEFORP=1TOLEN(P$):II=ASC(I1ID»(P$,P,N1)):PRI 
NTCHR$(ABS((C155«(II>C64))-II));:NEXT:PRINT:RETURN 

Encode input 

A V$=":IFVO$="THENRETURNELSEFORJ=1TOLEN(VO$):II=ASC(MID$(VO$,J 
,Nl)):V$=V$+CHRt(ABS((C155l(II>i4))-II)):NEXT:RETURN 

Display message, then end current turn. 

8 6DSUB4:G0TO2250 

Descriptions of individual rooms. 

10 A$="ZI1 ZRIOLXP. BSVIV RH Z YOFV YFGGLN SVIV':S=2:RETURN 

20 A»="Z MZIILD XLIIRt(Lr';N=l:S=3:RETURN 

30 A$="Z HZIILD XLIIRMLr:N=2:S=4:RETURN 

40 A«="Z HZIILD XLIIRHLr:N=3!S=5:RETURN 

50 A$="Z HNZOO ILLN°iN=4:S=6:RETURN 

60 fl$="Z WVXLI16ZNRI1Z6RLI1 XSZNYVI":B»='GSVIV RH Z YOFV YFGGLN SVl 

V:N=5:S=7: RETURN 

70 flt="Z HNZOO HGLIZTV XSZNYVI':N=A:S=8;H=12:RETURN 

80 A$="Z HNZOO XSZNYVI":M=7:S=9:W=13;RETURN 

90 A$="Z HNZOO VOVXGILHRX 0ZYLIZ6LIB":N=8:S=10:M=14:RETURN 

100 A$="Z YRLOLTRXZO 0ZYLIZ6LIB. GSVIV RH Z IV« YFGGLN L« GSV DZ 

00":N=9:«=15:RETURN 

110 A$="Z HGLIZTV XSZNYVr:H=16:RETURN 

120 A$="Z OZITV XSZNYVI. GSVIV RH Z XZYRHVG SVIV"!S=13;«=17:E=7i 

RETURN 

130 A$="Z HGIZHTV KFIKOV ILLN. BSVIV RH Z YOFV YFBGLH SVIV":N=12 

:S=14:«=18:E=8:RETURN 

140 A$="Z HHZOO LUURXV:N=13:S=15!E=9!RETURN 

150 A$="Z HNZOO ILLN ORGS Z XZIW 6ZY0V RH GSV XVI16VI':H=14:S=14: 

W=20:E=10:RETURN 

liO A$="Z OZITV LUURXV. GSVIV RH Z HVHP SVIV:N=15:M=21:E=ll!RET 

URN 

170 A«="Z LUURXV ORGS Z OZITV NVHP":S=18:E=12;RETURN 

180 A«="Z HGLIZTV ILLN":N=17:S=19;E=13:RETURN 

190 A*="Z OZITV SZ00":N=1B;S=20:RETURN 

200 A$="ZI1 VHGVIGZRMNVMG ILLN. Z HXIVVN IVHGH LM GSV DZOO":B$='G 

SVIV RH Z YOFV ZNW Z IVN YFGGLH FHHVI GSV HXIVVN":N=19:S=21:E»15 

: RETURN 

210 A$="Z NZGZ IVXLIW HGLIZTV ILLN"!N=20:E=16:RETURN 

220 A$="IZtlZI XLN6IL0. GSVIV RH Z HNZOO HXIVVH SVIV";S=23:«=27:R 

ETURN 

230 A$=°Z NVHRXZO HGZGRLH. GSVIV RH Z OZITV GZYOV SVIV":N=22:S=2 

4:N=28:RETURN 

240 A$="Z HVXFIRGB HBZGRLN':N=23:RETURN 

250 A«="Z IZKRL ILLN":S=26:t(=30;RETURN 

260 A»="Z HNZOO ILLN. GSVIV RH Z HZUV R(1 GSV HLFGS DZ00":N=25:N= 

31: RETURN 



270 fl*="6SV ILYLG XLNGILO XVNGVI":B$='GSVIV RH Z HNZOO XLdGlLO X 
LNKFGVI NLFNGVH RN GSV DZ00":N=32:E=22:RETURN 
280 A*="6SV DVZKLMH HGLIZTV ILLN" :S=29:H=33:E=23: RETURN 
290 A«="Z 0RYIZIB"!N=28:S=30:H=34:RETURN 
300 At="Z HVXFIRGB XSVXP ZIVZ':N=29:N=36:E=25:RETURN 
310 A$="Z HNZOO ILLN ORGS Z NVHP. Z HRTM IVZNH":B$="KIVHHFIV 6L 
IVZXGLI.' Z YOFV YFGGLN RH OLXZGVN FHUVI GSV HRTN":E=26: RETURN 
320 A«="OZFMXS XLNGILO. GSVIV RH Z HVHP SVIV":S=33:K=37:E=27:RET 
URN 

330 A»='Z HNZOO XLIIRHLr:N=32:S=34:E=28:RETURN 
340 A$="Z HGIZHTV YOFV ILLN, GSVIV RH 2 IVN YFGGLH SVIV":N=33:S= 
35!E=29:RETURN 

350 A*="Z GRHB HGLIZTV ILLN":N=34:H=40:RETURN 
360 A*='Z HNZOO XSZNYVI. GSVIV RH Z DVHG NLLI SVIV":E=30:RETURN 
370 A«="Z HNZOO, MZIILI XLIIRHLI':N=42:E=32!RETURN 
380 A$=»GSV XLNKFGVI XVNGVI. GSVIV RH Z HNZOO HOLG":B$="RH GSV X 
LNKFGVI ":S=39:RETURN 

390 At="GSV XSVNRXZO 0ZY':N=38:S=40: RETURN 
400 A$="GSV IVZXGLI XLHGILO XVHGVI. GSVIV RH Z YOFV YF6BLH°!B*=' 
ZHH Z IVW LHV. Z HRTH HZBH 'IVZXGLI XLHGILO - IVN=LH, Y0FV=LUU": 
N=39:E=35:RETURN 

410 A$="GSV MFXOVZI IVZXGLI. Z XLNKFGVI IVH6H LH GSV DZD0":E=36: 
RETURN 

420 A$="GSV DVHG VHH LU Z OLHT XLIIRHLr:S=37:E=43!RETURN 
430 A$="GSV VZH6 VHW LU Z OLHT XLIIRHLr:H=42:E=44:RETURN 
440 AJ="Z HVXFIRGB XVHGVr:«=43;E=45:RETURN 
450 A$="Z HNZOO OZFHXS TZ6V":B$="GSVIV RH Z HNZOO HOLS HVCG GL S 
SV OZFHXS TZGV":M=44:RETURN 

460 A«="Z HNZOO HKZXVXIZU6. GSVIV RH Z HNZOO HOLG RH GSV NZHBVI" 
:B$="OZFHXS XLNKFGVI ":H=45 

Extended descriptions of current location 

470 IFA=10AND(D3=10RD3=2)THENC$='GSV NLHHGVI XZTV RH LKVH' 

480 IFA=12ANDD5=0THENC*="GSV XZYRHVG RH OLXPVH" 

490 IFA=12ANDD5=1THENC$="GSV XZYRHVG RH LKVH" 

500 IFA=20ANDD6=0THENC»='GSV HXIVVH RH YOZHP" 

510 IFA=20ANDD6=1THENC$="Z NLERV RH YVRHT KOZBVN LH GSV HXIVVH" 

520 IFA=26ANDD9=0THENC*="GSV HZUV RH OLXPVN" 

530 IFA=26ANDD9=1THENC$="GSV HZUV RH LKVH" 

540 IFA=27ANDE2=0THENC$="6SV XLNKFGVI RH ZXGREV" 

550 IFA=27ANDE2=1THENC$="GSV XLNKFGVI RH NVHGILBVN" 

560 IFA=36ANDE6=0THENC$="6SV IVZXGLI KLLI RH URINOB OLXPVN" 

570 IFA=36ANDE6=1THENC«="GSV IVZXGLI NLLI RH LKVH":H=41 

580 IFA=45ANDE9=0THENC$="GSV OZFHXS TZBV RH XOLHVW" 

590 IFA=45ANDE9=1THENC$="GSV OZFHXS TZGV RH LKVH°:E=46 

Generate list of visible items and available exits for 
current location. 

600 A$=A$+".":IFLEN(B«)>3THENB$=Bt+"." 

610 IFLEN(C$)>3THENC$=C«+'." 

650 IFN<>OTHENEt="HLIGS " 

660 IFS<>0THENE$=E$+"HLF6S " 

670 IF«<>0THENE$=E«+"DVH6 " 

680 IFE<>OTHENE$=E$+'VZHG " 

690 IFE$<>""THENE$=LEFT»(E«,LEH(E»)-1) 

Describe current location, visible Items, and available 
exits. 



:P$=A»:G0SUB4iP«=B«:G0SUB4 



700 CLS:PRINT"YOU ARE IN: 

710 P$=C$:GDSUB4 

720 PRINT:PRINT"OBJECTS YOU CAN SEE: '-.?*=' 

ATHENP«="- ■+I«(T):G0SUB4 

725 NEXT:IFP$=" "THENP$=" HLGSRHT":60SUB4 

730 PRINT:PRINT"EXITS: ":P$=E»:G0SUB4 



:F0RT=lT016!lFI(T)= 



SoftSide 
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] ^EW (CLASSICS SOFTWARE 
1 2ISCd.l'&U Phelps Gates 

This friendly, easy to use version of Slandnrd Puscal, as 
reviewed in the December 1981 Byte, is now even better! 
New version works on TRS-BO Modell and Model III, under 
TRS-DOS, NewDOS, NewDOS 80. DOSPlus. LDOS. and 
DoubleDOS. An author package allows you to create your 
own /CMD files without any royalty payments! Upper and 
lower case is fully supported. You can protect memory and 
call machine language programs. New extensions include 
SET. RESET. POINT, RND. and the UCSD Include procedure. 
Utilities are provided to convert to and from ASCII files. 
Pascal 80 now comes in a binder with an 80 page manual by 
George Blank. 

With monitor, editor, and compiler in memory at the same 
time, no other Pascal is easier to learn! One college found 
that it could teach half again as many students on the same 
number of computers after switching from UCSD Pascal to 
Pascal 80. 

Full 14 digit accuracy on all math functions, including log 
and trig functions, makes this a serious Pascal. Disk file 
handling is supported, with a mail list program included as 
a demonstration. 

Upgrades are available for those who bought Ramware 
Pascal 80. Call or write for information. 

Send $101 (includes shipping) to: New Classic Software 
^^ 239 Fox Hill Road, Box S 

[^gj^^ fQP Denville, N| 07834 

Credil card orders: (201) 625-8838 

(PASCAL-80 docs not implcmcnl variani records, pomlcr and wjndou variables, 
01 funciions and procedvircs used a.s parameters.) 



Print out additional warnings, messages, etc. 

740 IF(AM00RA=350Rfl=300Rfl=31)ANDI(4)=0ANDF3=0THENP$="GSV HNZOO 

YDZ.XP KVERXV RH ¥0RNPRMT";G0SUB4 

750 IFfl=36ANDI(4)=0ANDF3=0THENP«="BSV HNZOO YOZXP HVERXV RH UOZH 

SRNT YIRTS60B":60SUB4 

760 IFF4<>0THENP$="GSV XLNKF6VI HZBH: '■+STR*(F4)t" NRI1F6VH FHGR 

«VHG1F](6RLN'":B0SUB4 

770 IFD3=:1THENP$="» » t ZORVH NLMHBVl ZGSZXPRHT » » »";60SUB4 

780 IFD7=10RE0=10RE3=10RE7=1THENP»="J » I HVXFIRGB KZ6IL0 ZG6ZXP 

RMT > t r -.805064 



Get and interpret command. 



790 PRINT: INPUT"COI1MAND"iVO$!SOSUB6 

800 F0RT=lT04iIFV$=LEFT«(V$(T),l)THENVt=V«(T) 

810 NEXTT 

820 IFLEN(V$)<3THEN700 

830 V1$=LEFT$(V»,3);V2$=RIBHT$(V«,3) 

840 F0RT=1T017:IFV1$=LEFT$(V»(T),3)THENV1=T 

850 NEXTT: IFV1=0THENP$='R NLN'G FHHVIH6ZNH DSZG BLF DZMG NV GL W 

L":G0T08 

860 F0RT=1T016:IFV2«=RIGHT$(I$(T),3)THENV2=T 

870 NEXTT 

880 ONV160T0900,940,980, 1050, 1 130, 1310, 1370, 1390, 1560, 1620, 1660, 

1790,1860,1910,2010,2170,2240 

890 B0T02250 

Command iiandler routines. 



900 IFN=0THEN1110 

910 IFD3=1THENP$="8BV NLNHBVI YOLXPH 68V VCRB":BOTOB 

920 IFD7=1QRE3=1THENG0T01100 

930 A=N:B0T02250 

940 1FS=OTHEN1110 

950 IFS=24ANDD8<>0ANDE2<>lTHEND7=l:G0SUBn20 

960 IFS=30ANDE4<>OANDE2<>1THENE3=1:GOSUB1120 

970 A=S:GOT02250 

980 1F«=0THEN1110 

990 IFD3=1THENP$='GSV NLMHGVI YOLXPH 6SV VCRG':60TDB 

1000 IFE0=10RE3=10RE7=1THEN1100 

1010 IFH=41ANDF3=0THENP«="IZHRZGRLH UILN GSV IVZXBLI SRBH BLF":G 

0SUB4:G0T02510 

1 020 I FK=30ANDE4< >0ANDE2< > 1 THENE3=1 : GOSOBl 1 20 

1030 I FM=27ANDE 1 < >0ANDE2< > 1 THENEO= 1 : 60SUB1 1 20 

1040 A=N:BOT02250 

1050 IFE=0THEN1110 

1060 IFE0=10RE3=10RE7=1THEN1 lOOTHENl 100 

1070 IFE=27ANDE1<>0ANDE2<.>1THENE0=1:G0SUB1120 

1080 IFE=44ANDE8<>0ANDE2<>1THENE7=1:G0SUB1120 

1090 A=E:G0T02250 

1100 P$="BSV HVXFIRBB ZtlHILRH YOLXPH GSV VCR8":S0T08 

1110 P«='BSVIV RH HL DZB GL TL 6SZG llRIVXeRLH":G0SUB4iF0RJ=iT010 

00:NEXT:GOT02250 

1120 P«="Z HVXFIRGB ZNHILRH ZDZRBH BLF" :B0SUB4i RETURN 

1130 IFA=lANDV2«="LXP"THENPt="BSV ZRIOLXP LKVNH Z«« BLF ZIV YOLD 

H LF8 RI18L GSV EZXFFN LU HK2XV";G0SUB4:G0T02510 

1140 IFA=12ANDV2$="HV6"ANDD5=0ANDI(2)<>OTHENP$="BLF ZIVH'G HGILM 

T VNLFTS GL ULIXV RG LKVN":B0T08 

1150 IFfl=12ANDV2»="NVB"ANDD5=0ANDI(2)=0THENP«="GSV XILDYZI SVOKV 

W. BSV XZYRHVG RH NLD LKVI1":D5=1:I(5)=ABS(I(5)):G0T08 

1160 IFA=12ANDV2$="HVG"ANDD5=1THENP$='GSV XZYRMVG RH ZOIVZNB LKV 

N":G0T08 

1170 IFA=16ANDV2«="VHP"THENP»="LP":I(6)=ABS(I(6)):B0T08 

1180 IFA=17ANDV2$="VHP"THENP$='LP":I(7)=ABS(1(7)):G0T08 

1190 IFA=26ANDV2$="ZUV"ANDD9=1THENP»="BSV HZUV RH ZOIVZWB LKVN': 

GOT08 

1200 IFA=26ANDV2$="ZUVANDD9=0THENP$="R HLM'G SZEV GSV PVB BL LK 

VM GSV HZUV":G0T08 

1210 IFA=31ANDV2$="VHP"THENP$='LP, BLF URMN HLGSRNT RNHRNV":60TD 

8 

1220 IFA=32ANDV2«='VHP"THENP«="LP";I(14)=ABSiI(14)):G0T08 

1230 IFA=36ftNDV2«="LLI"ANDE6=lTHENP«="PSV «LLI RH ZOIVZNB LKVN": 

G0T08 

1240 IFA=36ANDV2$="LLI"ANDt.'-=0ANDI(6)<>0THENP$="BLF NLH'G SZEV 6 

SV PVB GL GSV HLLI":G0T08 

1250 IFA=36.'iNDV2*="LLI"ANDE6=0ANDI(6)=0ANDE5=0THENP$="BLF ZIV HF 

XPVW RMBL GSV FHKIVHHFIRAVN IVZXGLI YFR0NRHT':G0SUB4:G0T02510 

1260 IFA=36ANDV2$="LLI'ANDI(6)=0THENP$="BSV «LLI RH NLD LKVM":E6 

=1:G0T08 

1270 IFA=41ANDV2t="»V0"THENPt="BSV KZHVO RH ORINOB 0LXPVIC:G0T08 

1280 IFA=45ANDV2»="LXP"ANDE9=1THENP«='SSV ZRIOLXP RH ZOIVZNB LKV 

I1":B0T08 

1290 IFA=45AN0V2»="LXP"ANDE9=0THENP«="BSVIV ZIVH'8 ZHB ERHRYOV X 

LI16IL0H':G0T08 

1300 P$="R XZH'B NL BSZG";G0T08 

1310 IFV2$^»6VrORV2»=°LRN"THENP$="NLN'G YV IRNRXF0LFH":60TO8 

1320 1FV2=0THENP«="R XZM'G ML GSZB":B0T08 

1330 IF1(V2)=0THENP«='BLF ZOIVZNB SZEV BSZB':GOTOB 

1340 IFI(V2)<>ATHENP$="R NLN'G HVV RG SVIV":G0T08 

1350 IFP4>=8THENPt="HLnB, BLF XZH'G XZIIB ZNBBSRHT NLIV:B0T08 

1360 P4=P4+1:I{V2)=0:P$="LP":G0T08 

1370 IFV2=00RI(V2)<>0THENP$="BLF NLM'B SZEV GSZG":G0TD8 
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1380 P4=P4-l:I(V2)=fl:P$='LP':60T08 

1390 IFI(5)(>0THENP*='BLF WLN'6 SZEV Z DVZKLN":SOTOB 

MOO IFfl=lANDV2$='LXP"THENP$="BLF ZIV YQLDN LFG LU fiSV ZRIOLXP R 

H8L GSV EZXFFN LU HKZXV:60SUB4:BOT02510 

1410 IFft=27flNDV2$="BVrTHENP«="GSV XLNKFGVI RH NVH8ILBVW:E2=1:E 

0=0:GOT08 

1420 IFA=38ftNDV2»="6VrTHENP«="6SV HSLG IVU0VX6H LUU LU GSV XLNK 

FGVI":60SUB4!G0T02510 

1430 IFA=41flNDV2«='6VI'THENP«="6SV DSLOV MFX0V2I IVZXGLI RH VCKO 

LHRNT":60SUB4:GQT02510 

1440 IFV2$="RHH'DRV2*="YL6"0RV2$="IL0"0RV2$="H)H"0RV2*="ZI«"THEN 

V2«='LRH" 

1450 IFV2*<>"GVrflNDV2«>"LR«"THENP«="BSV OZHVI HSLG SZH ML VUUV 

XG":GOTOB 

1460 IFV2«="GV1"ANDD3=0THENP»="R MLN'B HVV ZNB NLNHGVI SVIV:GOT 

08 

1470 IFV2$="LRN"flNDD7=OANDE0=OANDE3=OANDE7=OTHENP$='R WLH'G HVV 

ZHB 2MMILRNH SVIV":G0T08 

1480 T=RND(100):IFT>P2+P3+50THENPt="BLF URIV ZMH NRHH":GOTOB 

1490 IFD3=1THENP$="BLF SRG GSV NLHHGVI":G0SUB4:D4=D4-( (10+P2+P3) 

/2):IFD4<:0THEND3=0:D4=0:P$="BLF SZEV PROOVN RG":G0T08 

1500 IFD7=1THENP$="BLF SRG GSV ZM«ILR«":G0SUB4:D8=D8-((5tP2+P3)/ 

2):IFD8<=0THEND7=0:D8=0:P»='R6 RH WVHGILBVU'iGOTOfl 

1510 IFE0=1THENP$="BLF SRG GSV ZN«ILRH":G0SUB4:El=El-((5+P2tP3)/ 

2):IFE1<=0THENE0=0:E1=0!P»='RG RH «VH6ILBVH":GGT08 

1520 IFE3=1THENP$="BLF SRG GSV ZI1NILRH":60SUB4:E4=E4-< (5tP2+P3)/ 

2):IFE4<=OTHENE3=0:E4=0:P$="RG RH NVHGILBVH":G0TG8 

1530 IFE7=1THENP$="BLF SRS GSV ZMMILRH";G0SUB4:E8=E8-((5+P2+P3)/ 

2):IFE8<=0THENE7=0:E8=0!P«="RG RH NVHGILBVM":GGT08 

1540 IFD3=1THENP»="RG RH HGROO Z0REV";G0T08 

1550 P$="GSV ZMWILRH RH HGROO UFNXGRLMRtlT'iGOTOB 

1560 IFV2=0THENP«="R XZM'B «L GSZ6":G0T08 

1570 IFI(V2)<>0THENP$="R NLH'G SZEV GSZG";G0T08 

1580 IFV2<>9ANDV2<>14THENP$=°R XZM'G HL GSZG'jGOTOB 

1590 IF(V2=9ANDA=44)0R(V2=14ANDA=38)THENP«="I1LBSRNT SZKKV«H':60T 

08 

1600 IFV2=9ANDA=3BTHENF4=35:P$="GSV XLNKFBVI IVKORVHi 'YZHV HVHG 

IFXG HVJFVNXV HGZI6VW:60SUB4:P$="«VHGIFXGRLN RH"+STR$(F4)+" NRM 

FGVH. ' ":P4=P4-1: 1(9)=100!GOT08 

1610 IFV2=I4ANDA=45THENPt="GSV T2GV LKVI1H":E9=l!G0T0B 

1620 IFV2<>10THENP«="MLH'G YV IRMRXF0LFH":60T08 

1630 IFI(10)<>0THENP$="BLF WLN'G SZEV GSZG":G0T0B 

1640 P«="LP":I(10)=50:P4=P4-l:Pl=Pl+5+P3:IFP0<PlTHENP0=Pl 

1650 GQTDS 

1660 IFA=IANDV2$="0FV"THENP*="GSV ZRIOLXP LKVMH. . . ■:P$="BLF ZIV 

YOLDH LFG RHGL GSV EZXFFN LU HKZXV":G0SUB4:G0T02510 

1670 IFA=6ANDV2$="0FV"THENP$='Z HGIZHTV, LIZtlTV TOLD XLEVIH BLF 

ZHN GSVH UZWVH ZDZB":G0T08 

1680 IFA=10flNDV2$="IVW"ANDD3=lTHENP$="l1LGSRMT SZKKVHH'iGQTOB 

1690 IFA=10ANDV2$="IV«"THEND3=1:P<="ZN ZORVM NLMHGVI RH IVOVZHVH 

. RB RH ZGBZXPRMT BLF!':G0T08 

1700 IFA=13ANDV2t="0FV"THENA=34:P*="Z UOZHS LU 0RTS6 GVNKLIZIROB 

YORMMH BLF":G0T08 

1710 IFA=20ANDV2t="IVW"ANDD6=0THENP«="NLGSRMT SZKKVKH'iGOTOG 
1720 IFA=20ANDV2*="rVN'THEND6=0:P$="GSV HXIVVH TLVH Y0ZMP':G0T08 
1730 IFA=20ANDV2*='0FV"THEND6=l:Pt="GSV HXIVVM ORTSGH FK":G0T08 
1740 IFA=31ANDV2«='0FV"THENE5=1:P$="LP":60T08 
1750 IFA=34ANDV2»="IVW"THENA=13:P$="Z UOZHS LU ORTSG GVNKLIZIROB 

YORNKH BLF":GOT08 
1760 IFft=40ANDV2$="lVH"THENF3=0!p$="LP":GOT08 
1770 IFA=40ANDV2$="0FV"THENF3=1:P*="LP":G0T08 
1780 P$="«LGSRNT SZKKVHH":G0T0B 

1790 IFA=22ANDV2$="VVI1"THENP$="BLF XZM HVV MLGSRHT LU RH6VIVHG L 



H GSV IZWZI";G0T08 

1800 IFV2=0THENP$="R HLM'G SZEV GSZG":G0T08 

1810 IFI(V2)<>0ANDIiV2)<>ATHENP*="R HLM'G SZEV GSZG":G0TO8 

1820 IFV2=30RV2=13THENP$="R HVV MLGSRMT HKVXRZ0":G0T08 

1830 IFV2=9THENP*="HLIIB, LMOB Z XLNKFGVI XZH IVZ« Z K1LTIZN":GD 

T08 

1840 IFV2=16THENP$="GSV KOZNH ZIV HVZDVW...LHOB XLNNZMM XZH LKVM 

6SVN«:G0T08 

1850 P»="R XZM'G IVZM GSZG":GDT08 

1860 CLS!P<='« t « KOZBVI'H RMEVHGLIB t t ♦":G0SUfi4:PRINT 
1870 F0RT=1T016:IFI(T)=0THENP$=°- "+It(T):G0SUB4 
1880 NEXTT 

1890 PRINT:PRINT"HIT ANY KEY TO CONTINUE" 
1695 X$=INKEY$:IFX$="THEN1895 
1900 60T02400 

1910 IFV2=0THENPt="R XZM'G WL GSZG'iGOTOB 
1920 IFI(V2)<>0THENP$="R tiLII'G SZEV GSZG":GOTOB 
1930 IFV2=1ANDA=12ANDD5=0THENP$="GSV XZYRMV6 OLXP RH WVHGILBVH": 
D5=1:I(1>=100:I(5)=ABS(I(5)):P4=P4-1:GOT08 

1940 1F(V2=10RV2=15)AND(D3=10RD7=10RE0=10RE3=10RE7=1)THENI(V2)=1 
00:P4=P4-1:G0T01490 
1950 IF(V2=10RV2=15)ANDA=1THENP$="GSV ZRIOLXP RH WVHGILBVN,..BLF 

ZIV YOLDM LFG RMGL GSV EZXFFN LU HKZXVI"!G0SUB4:G0T02510 
1960 IF(V2=10RV2=15)ANDA=36ANDE6=0ANDE5=0THENP«="GSV KLLI RH WVH 
GILBVW,..BLF ZIV HFXPVW RMGL GSV MLM-"!G0SUB4iP$="KIVHHFIRAVN IV 
ZX6LI YFR0WRMT":G0SUB4:G0T02510 

1970 IF(V2=10RV2=15)ANDA=36ANDE6=0ANDF3=0THENP«="BSV «LLI RH HVH 
GILBVW. BLF ZIV YLNYZIMVH DR6S IZNRZ6RLM':G0SUB4:G0T02510 
1980 1F(V2=10RV2=15)ANDA=36ANDE6=0THENP$="GSV MLLI RH NVHGILBVN' 
:E6=l:I(V2)=100:P4=P4-l!G0T08 

1990 IFV2=10RV2=15THENP$="GSV ■+I«(V2)+" SZH ML VUUVXGM (V2)il0 
0:P4=P4-1:G0T0G 
2000 G0T01370 

2010 IFV2=0THENP$='R XZM'G WL GSZG':G0T08 
2020 IFI(V2)<>0THENP*="R WLH'G SZEV 6SZG':G0T08 
2030 IFV2=5ANDD3=1THENV2$="GVI" 
2040 IFV2=5AND(D7=10RE0=10RE3=10RE7=l)rHENV2»="LRN" 
2050 IFV2=5THEN1390 

2060 1FV2=4ANDF3=0AND(A=400RA=350RA=300RA=31)THENP$=-"6SV YOZXP H 
VERXV RH Y0RMPRNT':G0T08 

2070 IFV2=4ANDF3=0ANDA=36THENP$="GSV YOZXP HVERXV RH UOZHSRMT YI 
RTSG0B":60T08 

2080 IFV2=4THENP»='GSV1V ZIVM'G ZHB ERHRYOV XLMGILOH LH 6SRH HVE 
RXV»:GQTOB 

2090 IFV2=12THENI(12)=A:P4=P4-1:I$(12)='AR«ED PHOTON B0«B":F2=35 
:P*="GSV KSLGLM YLNY DROO VCKOLHV RM 35 NRMFGVH":G0T08 
2100 IFV2=2ANDA=12ANDD5=0THEND5=l!P$="BSV XZYRMVG RH MLD LKVN":I 
(5)=fiBS(I(5)):G0T08 

2110 IFV2=2ANDA=12ANDD5=1THENP$="6SV XZYRMVG RH ZOIVZMB LKVM'rGO 
T08 

2120 IFV2=7ANDA=26ANDD9=0THEND9=1:H16)=ABS(I(16)):P$="GSV HZUV 
LKVMH";G0T08 

2130 IFV2<>11THENP$="DSZG NL BLF DZMG NV GL »L ORGS GSV "+IJ(V2) 
+"?":G0T08 

2140 IF!(B)<>OTHENP»="GSVIV ZIVM'G ZMB YZGGVIRVH ULI GSV IZNRL": 
BOTOB 

2150 IFF2<>0THENP«="2 ELRXV HZBH "YLNY HGZ6FH:"+STR»tF2)+"NRMFBV 
H FMGRO HVGLMZ6RLM"':G0T08 
2160 P«="6SV IZWRL RH HR0VMG":G0T08 
2170 CLS:P$="« t t KOZBVI'H HGZGFH » « «":60SUB4:PRINT 
2180 P«="XFIIVMG SRG KLRMGH ="+STR$!Pl):G0SUB4 
2190 P$="lilVCGVIRGB ZGGIRYFGV=VSTR$(P2):G0SUB4 
2200 Pt=»GFXP ZG6IRYF6V ="+STR$(P3):G0SUB4 
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2210 PRINT: PRINT-HIT ANY KEY TO CONTINUE" 

2220 )($=INKEYt:IFX«=""THEN2220 

2230 60T02400 

2240 CLS;PRINT"BfiHE 0VER":60T0 2520 

Update player status, and conduct combat if 
appropriate. 

2250 IFF2<>0THENF2=F2-1:IFF2<=0THEN2430 

2260 IFF4<>0THENF4=F4-1:IFF4<=0THEN2470 

2270 IFP1<POTHENP5=P5+,5:IFP5=1THENP3=0:P1=P1+1 

2280 IFD3=0flNDD7=0ANDE0=0fiNDE3=0ANDE7=0THEN2390 

2290 T=RND(100) 

2300 IFD3=1THENP$="BSV NLNHGVI ZB6ZXPH ":G0SUB4 

2310 IFD3<>1THENP$="GSV HVXFIR6B ZNHILRW HSLL6H... ■:60SUB4 

2320 IFT>B0-(P2+P3)THENP$='R6 NRHHVH":60SUB4:B0T02390 

2330 P1=P1-(RND(5)+RND(5)+RND(5)+RND(5)+15-P3) 

2340 IFD3<>lTHENPl=Pl+5 

2350 IFPK0THEN2510 

2380 P$="BLF ZIV SRG!":G0SUB4 

2390 IFV1=OORV1>40R(D3+B7+E0+E3+E7>0)THENFORJ=1T01000:NEXT 

Initialize for new turn and jump to appropriate room 
description. 

2400 V*=""!Vl$="":V2«=":Vl=0:V2=0;A$=""!B$="":C*="";D»="":Et="" 

:N=0:S=0:H=0:E=0 

2410 ONAGOSUBIO, 20, 30, 40,50,60, 70, 80, 90, 100, 110, 120, 130, 140, 150, 

160, 170, 180, 1 90, 200, 210, 220, 230, 240, 250, 260, 270, 280, 290, 300, 310, 

320,330,340,350,360,370,3B0,390,400,410,420,430,440,450,2550:B0T 

0470 

2420 60T010 

Evaluate end-game conditions and display 
appropriate messages. 

2430 CLS! IFA=46THENF4=-1:B0T02550 

2440 P*='BSV KSL6LM YLNY VCKOLNVH...BSV VMBRIV XLNKOVC RH HVH6IL 

BVN':G0SUB4 

2450 P$="BLF SZEV YVVM PROOVH YB BSV ULIXV LU 6SV Y0ZHB":B0SUB4 

2460 PRINT:PRINT:60T02510 

2470 CLS:IFA=46THEN2550 

2480 IFA=38THENP$="BSV XLNKFSVI UOZHSVH YIRTSBOB, VNRB6RNT HKZIP 

H Rn ZOO HRIVXGRLHH':B0SUB4 

2490 P«="BSV XLNKOVC HFNHVNOB VCKOLWVH RMBL NROORLHH LU KRVXVH": 

60SU64 

2500 P*="BLF ZIV PROOVN YB BSV UZOORHT HVYIRH ZILFMH BLF"!B0SUB4 

iPRINTiPRINT 

2510 P$="BLF ZIV «VZHI":G0SUB4 

2520 INPUT"DO YOU KANT TO PLAY AGAIN" ;A$ 

2530 IFLEFTt(A»,l)="Y"THEN2610 

2540 CLS: END 

2550 P*="GSV HKZXV HSRK HFNMVMQB ORUGH RMBL LIYRG ZILFHH BSV KOZ 

«VB":G0SUB4 

2560 IF((F2=0)0R(F2<>0ANDI(12)<>41))ANDF4=0THENP$="BLF WRHH'B HV 

HGILB BSV YZHV. NRHHRLM UZR0VW":GQSUB4:PRINT;GOT0252O 

2570 P$="UILN Z WRHBZMXV, BLF XZI1 HVV BSV ZORVN YZHV VCKOLWV":GO 

SUB4 

2580 IFI(16)<>0THENP«='BLF HRHJI'G IVXLEVI BSV HVXIVS KOZMH NVVHV 

H YB HGZI XLNNZ«H°;60SUB4;PRINT:B0T02520 

2590 P*="NRHHRLI1 RH Z HFXXVHHI';60SUB4 

2600 60T02520 

Initialize workspace. Read in items, and verbs. 



2610 CLEAR300:DIHI*(16),I!16),V$(17):C155=-155:C64=64:N1=1 

2620 CLS 

2630 PRINTTAB(15) "OPERATION: SABOTABE BY RAY SATO" 

2640 F0RT=1TD16:READI$(T),I(T):NEXT 

2660 F0RT=1T017:READV$(T):NEXT 

2690 FORT=1T040!PO=PO+RND(2):NEXTT 

Establish player attribute points. Jump to first room. 

2700 P1=P0 

2710 F0RT=1T010:P2=P2+RND(2):NEXTT 

2720 F0RT=1T010;P3=P3+RND(2) :NEXTT 

2730 F0RT=1T050:D4=D4+RND (2 ) ; D8=DB+RND (2) : E 1=E1+RND (2) : E4=E4+RND 

(2):E8=E8+RND(2):NEXTT 

2740 A=1:P4=1 

2750 G0SUB10:6OT0470 

Item and verb data 

2760 DATAK02H6RX VCK0LHREV,O,XILDYZI,7,XZ0VNI)ZI,8,HNZ00 YDZXP W 

ERXV,9,0ZHVI KRH6L0,-12,HVXFIRBB PVB,-16,V0VXGILHRX XLN6IL0 YZGL 

H,-17,YZBBVIRVH,1B,XLNKF6VI MVHBIFXG KILTIZN,21,HR0EVI KR00,23,K 

LIGZYOV IZWRL,25,0ZITV KSLSLN YLNY, 28 

2770 DATATZ0ZX6RX XSZIG,32,0ZFI1XS HBHGVN XZHHVB6V,-32,I1RBILT0BXV 

IRM,39,HVXIVB KQZI1H,-26 

27B0 DATAt1LIBS,HLFBS,DVHG,VZHG,LKVN,TVG,NILK,HSLLG,RNHV16,VZG,KF 

HS,IVZM,RMEVI1GLIB,6SILD,FHV,HSZ6FH,JFRG 



TRS-80® SWAT TABLE FOR: OPERATION: SABOTAGE 

(Modified Parameters: NU = 5, B = 200) 


SWAT 
LINES CODE 


LENGTH 


LINES 


SWAT 
CODE 


LENGTH 


2 - 


10 XO 


238 


1410 - 1430 


XH 


209 


20 - 


60 SU 


221 


1440 - 1470 


06 


259 


70 - 


100 MX 


222 


1480 - 1500 


OP 


253 


110 - 


140 HV 


221 


1510 - 1530 


NA 


297 


150 - 


180 CR 


228 


1540 - 1580 


OP 


197 


190 - 


210 DI 


213 


1590 - 1610 


RA 


240 


220 - 


250 XZ 


207 


1620 - 1660 


NP 


244 


260 - 


280 LY 


225 


1670 - 1690 


RG 


214 


290 - 


310 SE 


207 


1700 - 1730 


QS 


231 


320 - 


350 RL 


221 


1740 - 1780 


HC 


209 


360 - 


390 NU 


223 


1790 - 1820 


KF 


204 


400 - 


410 LS 


206 


1830 - 1860 


UX 


206 


420 - 


450 X6 


232 


1870 - 1900 


FU 


lOB 


460 - 


490 BT 


225 


1910 - 1940 


IL 


236 


500 - 


540 JL 


217 


1950 - 1960 


BH 


244 


550 - 


590 HK 


245 


1970 - 1990 


HY 


255 


600 - 


670 RV 


127 


2000 - 2040 


XU 


151 


680 - 


720 SS 


177 


2050 - 2080 


GF 


222 


725 - 


750 6F 


214 


2090 - 2110 


HA 


237 


760 - 


780 JF 


201 


2120 - 2150 


BR 


272 


790 - 


830 NU 


111 


2160 - 2200 


UL 


193 


840 - 


880 DT 


226 


2210 - 2250 


SB 


121 


890 - 


930 IZ 


105 


2260 - 2300 


LD 


157 


940 - 


980 MB 


108 


2310 - 2350 


LT 


165 


990 - 


1030 ZL 


202 


2380 - 2410 


YE 


339 


1040 - 


1080 RC 


124 


2420 - 2460 


IH 


176 


1090 - 


1130 IH 


272 


2470 - 2500 


ZN 


230 


1140 - 


1160 JR 


246 


2510 - 2550 


UY 


163 


1170 - 


1200 ZO 


217 


2560 - 2580 


LY 


250 


1210 - 


1240 IC 


236 


2590 - 2630 


6B 


145 


1250 - 


1270 TU 


222 


2640 - 2710 


QD 


109 


1280 - 


1310 KN 


209 


2720 - 2760 


ZZ 


348 


1320 - 


1360 LF 


206 


2770 - 2780 


AZ 


184 


1370 - 


1400 YV 


214 
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The first module of CATS, pub- 
lished in the previous issue of SoftSide, 
was designed to allow you to create a 
computerized test and save it on disk or 
tape. The second and third modules 
complete the Computer Assisted 
Testing System, giving you the 
capability of administering the created 
tests and analyzing the results. 

The Testing Module 

Once a test has been created and 
stored on media by the first CATS 
module, the second module comes into 
play. This is a program entirely 
separate from the first (though it 
shares some similar sections of code). 
It enables the teacher to make choices 
concerning how the test should be ad- 
ministered, and enables the student to 
take the test on his own with no further 
teacher involvement. It makes use of 
two different passwords, along with 
error-trapping routines, which 
discourage unauthorized access to the 
stored tests and scores. 

When running the testing module, 
you will see a title page similar to that 
of the creation module. The date must 
be entered in the format indicated, and 
you are prompted to press any key to 
continue. Doing so will cause certain 
default options to be chosen, and (in 
the tape version only) you will be in- 
structed to insert the proper tape for 
loading. The next display prompts the 
student to enter his name, the name of 
the test he is taking (disk version only), 
and the password for that test. This 
password is the one chosen when the 
test was created with the first module, 
and must be suppUed to the student by 
the teacher in order to access the test. 
(If desired, the same test can be stored 
on different disks or tapes with alter- 



nate passwords, using the features of 
the creation module.) In the disk ver- 
sion, it is at this point that a prompt is 
given to insert the test disk, and it is 
read into memory. (Notice that tests 
are saved by the creation module with 
the prefix "Q." on the Apple™, the 
suffix "/Q" on the TRS-80®, and the 
suffix ".Q" on the ATARI®. This 
prefix/ suffix should not be entered as 
part of the test name.) 

The test questions are then 
displayed, one at a time, just as they 
were created by the first module. An 
information line at the top will show 
the question number, its relative value, 
and, if a hint is available, the penalty 
for using it. The student can enter his 
answer, or he may enter "H" to see the 
hint or "S" to skip the question for the 
moment. There is no penalty for skip- 
ping the question — unless, of course, 
he doesn't come back later to answer 
it. 

After an answer has been typed in, it 
is immediately evaluated for the stu- 
dent. If correct, it is simply reinforced 
with the message "CORRECT". If 
not, the correct answer is given. This 
enhances the learning process and is 
uniquely possible because of the com- 
puterization of the test. However, the 
teacher can choose other "feedback" 
options, as described below. 

After all the questions have been 
presented, the student is given the 
opportunity to review questions he 
skipped, or to end the test. There is no 
limit on the number of times the 
skipped questions can be reviewed. 
Once the choice is made to end the test, 
the overall score (in both points and 
percentage) is shown on the screen. In 
the disk version, the scoring informa- 
tion is recorded on the disk for later 
evaluation by the teacher. Scores for 
SoftSide 



PARTS TWO 9n(l THRU 

by Jon R. Voskuil 

ATARI® & TRS-80® translations by Alan J. 

Zett 

CATS is an educational utility program 
for an Apple 11^^ or Apple II Plus^" with 
Applesoft, a TRS-80® Model I/Model III, 
or ATARI® 400/800. The testing module 
<^CATS2) will run on disk or tape. The 
evaluation module {CA TS3) requires a disk 
drive. Tape versions will run in 16K RAM. 
Disk versions require 32K RAM. More 
memory and a printer are optional, but 
highly recommended. 

all students taking the same test on the 
same disk will be written in a single 
file. In the tape version, the scores for 
up to twenty students are retained in 
memory for the teacher to see later. 
Finally, the prompt line is displayed, at 
which point pressing RETURN (or 
ENTER) will repeat the whole process 
for another student. 

As mentioned above, there are op- 
tions which may be chosen by the 
teacher to change the way in which the 
test is administered. These options may 
be accessed when the "PRESS 
RETURN TO CONTINUE" message 
is displayed before (or between) tests, 
by pressing CTRL-O instead of 
RETURN. Note that the CTRL key is 
simulated on the TRS-80® by the com- 
bination SHIFT/DOWN-ARROW. 
You will then be asked to enter the 
master password, which is presumably 
known only by the teacher and is dif- 
ferent than the individual test 
passwords. This master password is 
tucked away in line 15020 (15060 in the 
tape version), and can be assigned any 
string you like. For added security, it 
could be defined in a more roundabout 
way, such as: 

MP$ = CHR$(80) -I- CHR$(65) -I- ... 

Obviously, such passwords will not 
long deter someone with computer 
knowledge if they are determined to 
cheat; they are intended only as bar- 
riers to the curious. 

Once the master password is entered, 
a series of option menus will be 
presented. In every case, option 
number 1 is the default the computer 
would have chosen if you had not ac- 
cessed this section of the program. The 
first menu offers four choices for scor- 
ing feedback. Option 1 gives im- 
mediate feedback to the student as 
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soon as he enters his answer to each 
question, as described above. Option 2 
gives the same kind of question-by- 
question feedback, but not until the 
test has been completed — at that time, 
every question is re-displayed, with the 
points received and (if necessary) the 
correct answer. Option 3 withholds 
question-by-question scoring, and 
gives only the final score at the end. 
Option 4 withholds all scoring infor- 
mation, including the final score. 

The second options menu allows you 
to alter the number and order of the 
questions given. Option 1 causes all of 
the questions to be presented, in se- 
quence. Option 2 allows you to present 
a specified number of the questions in 
a random manner. If, for example, you 
specify ten questions of a fifty question 
test, the computer will randomly 
choose ten questions out of the fifty, 
and present them in a random order. 
Every student who takes the test with 
this option in effect will get a different 
random group often questions. Option 
3 allows you to choose a given range of 
questions to present from the total 
group; it requires you to enter the 
beginning and ending question 
numbers, to be presented in normal 
(not random) sequence. 

The third options menu enables you 
to override whatever values you 
originally assigned to the questions 
when you created the test, making 
them all of equal value. Option 1 leaves 
the values as originally entered, while 
Option 2 makes them all equal. 
Likewise, the fourth options menu 
allows you to make hints unavailable 
for all questions, even if you originally 
entered hints for some. If you retain 
the original hints, the fifth menu 
allows you to keep the hint penalties as 
you entered them, or to override those 
by assigning a fixed penalty across the 
board. 

Having chosen among all these op- 
tions, you will be asked to confirm the 
choices, and then you'll be returned to 
the point of entering the student's 
name for the next test. The options 
chosen will remain in effect until 
changed by using the CTRL-O com- 
mand prior to another test. Notice that 
in the disk version, a different test may 
be chosen by each student; in the tape 
version, only the test in memory is 
available, until the program is re-RUN. 

In addition to CTRL-O, one or two 
other commands can be given when the 
"PRESS RETURN TO CONTINUE" 
prompt is displayed. In both the disk 
and tape versions, CTRL-Q is the 
"quit" command which terminates the 
program. In the tape version only, 
CTRL-S (followed by entering the 
master password) provides access to 
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the scores of the students who have 
taken the test thus far. If the number 
of students reaches 20, no more tests 
can be administered until the CTRL-S 
command has been issued. After those 
20 scores are displayed, they will then 
be erased from memory to make room 
for up to 20 more. No such score 
reporting function is in the disk version 
of the testing module; this function is 
implemented in a more sophisticated 
way in the separate score evaluation 
module, described below. 

The Score Evaluation Module 

This module operates only with a 
disk system. It is a separate program, 
designed to read and analyze the scor- 
ing data (files with an "S" prefix or 
suffix) the testing module records on 
the disk each time a test is ad- 
ministered. (A suggestion: Save the 
first module under the file name 
"CREATE", the second under the file 
name "TEST", and this third under 
the file name "SCORE".) 

After the title page is displayed, you 
are prompted to insert the disk con- 
taining test scores, and a catalog of the 
disk is displayed (Apple^"^ version 
only). After typing in the appropriate 
file name and the master password 
which was used in the testing module, 
the disk will come on for a few 
moments while names, dates, and final 
test scores are read into memory. This 
program is designed to read and 
analyze scoring information for as 
many as 100 students who have taken a 
given test. In the unlikely event that the 
group of students is larger than this, 
the test should be administered from 
more than one disk, with no more than 
100 students using a given disk. (Mak- 
ing backups of the score files after the 
tests have been administered is strongly 
recommended!) 

The first display you will see after 
this will show the number of students 
who have taken the test, along with the 
lowest, highest, and average scores. It 
will then list every student whose 
results are recorded on the disk, along 
with the dates on which they took the 
test. Two different scores will be 
displayed for each student: The actual 
percentage score which he achieved, 
and (in parentheses) his percentage 
score "on the curve." The latter is 
calculated by giving the highest score a 
value of 100% and adjusting all the 
scores upward proportionally. If more 
than one screen is needed to Hst all the 
information, the display will pause as 
necessary. 

When this display is complete, you 
will have several options, summarized 
by a prompt line at the bottom of the 
SoftSide 



screen. Pressing R will review the same 
display again (useful at this point only 
for multiple-page displays). Pressing I, 
and then entering a number corre- 
sponding to one of the students, will 
cause more information to be read and 
displayed about that individual's per- 
formance on the test. This will show 
which questions were given to him, in 
what order, and the number of points 
he received for his answer to each ques- 
tion. An "S" is displayed if a question 
was skipped and never answered. 
Pressing P will print the displayed in- 
formation (either the whole summary 
or the individual test information) to a 
printer. The Apple^*^ version assumes 
that the printer interface is in slot 1. 
Pressing C will continue to the next 
part of the analysis; N will abort fur- 
ther analysis of this score data and 
prompt you for a new file name; Q will 
quit (after asking for confirmation). 

The final part of the analysis looks 
at the test results by question number, 
to determine which questions were 
missed most often by the students. The 
display is a chart of all 100 possible 
question numbers. Following each 
question number actually used on the 
test, two numbers will appear and be 
updated as the information is read 
from the disk. The first of these is the 
number of tests on which that par- 
ticular question appeared, helpful if 
only a random assortment or a part of 
the test was given to some or all the 
students. The second number is the 
percentage of wrong answers given to 
that question. Thus, those questions 
with higher percentages were the most 
often missed. (Because of the Hmited 
space on the display, a "99" will be 
displayed instead of "100" if a ques- 
tion was missed 100% of the time.) 

Once this analysis is complete, a 
prompt line gives you three options: 
Pressing P will give you a printout of 
the question-by-question analysis; Q 
will quit; and C will continue to 
another menu. That menu also gives 
three options: review the same score 
analysis from the beginning; read new 
score data from the disk; or quit. 

The Computer Assisted Testing 
System is a useful tool for the teacher 
or parent who wants to put a 
microcomputer to work in a variety of 
ways in an educational environment. 
Many enhancements are possible, of 
course, and users are encouraged to 
send modifications to share with 
others. 

Variables 

AZ: Temporary numeric variable 

(ATARI and TRS-80). 

A$: An Answer (Apple and TRS-80). 



A$: String of Answers (ATARI). 
A$(*): Array of answers (Apple and 
TRS-80). 

Al: Pointer to first answer choice 
(multiple choice) or first correct 
answer (fill-in). 

AP: Pointer to an answer in the A$ 
array. 

B$: Backspace character. 
DELS: Bell character. 
BR$: String consisting of a right and 
left bracket (Apple). 
C: Number of the correct answer 
choice (multiple choice) or number of 
characters to match (fill-in). 
C$: A character. 

CLR: Keyboard-strobe address (Ap- 
ple). 

D$: CTRL-D for disk access (Apple). 
E: Error code number. 
ERL: Line where error occurred. 
EF: Error flag. 
F$: Name of test. 

FIX: Address of ONERR-fix routine 
(Apple). 

H$: String of hints (ATARI). 
H$(*): Array of hints (Apple and 
TRS-80). 

HP: Hint penalty. 
HS: Hint status of a question as 
originally entered. 
HYNT: Hint status flag. 
I: Local loop counter. 
IT: Value returned by menu selection 
routine. 

1$: Temporary string variable 
(ATARI). 

J: Local loop counter. 
JJ: Temporary work variable. 
KEY: Keyboard address (Apple). 
L: Temporary used to hold the length 
of a string. 

MODE: Testing mode: all questions, 
random selection, or range. 
MPS: Master password. 
N: Number of answers. Also, number 
of menu choices. 

N$: Menu option (CATS2) or Name 
of person taking test (CATS3). 
N$(*): Menu selection options (Apple 
and TRS-80). 

NF$: First name of person taking 
test. 

NQ: Number of questions. 
NUM: Number of questions to be 
given. 

P$: Password typed in by user. 
PAF: Password flag. 
PFLAG: Hint penalty flag. 
PRESS: Equals 128. Used in WAIT 
statement to detect keypress (Apple). 
PW$: Password for this test. 
Q: Question number. 
Q$: String of questions (ATARI) 
Q$: A question (Apple and TRS-80) 
Q$(*): Array of questions (Apple and 
TRS-80) 

Q(*): Array holding pointers to ques- 
tions being administered (ATARI). 



Q%(*): Array holding pointers to 
questions being administered (Apple 
and TRS-80). 

Ql: First question number (temporary 
variable) 

Q2: Last question number (temporary 
variable). 

QF: First question. 
QF$: Full question file name (with 
prefix/suffix) 
QL: Last question. 
QN: Question number. 
QV: Question value. 
R: Random number used in scrambl- 
ing question. 

RF: Returned-from-subroutine flag. 
S: Speaker click address (Apple and 
ATARI) 

S(*): Array of score points for each 
question (ATARI). 

S%(*): Array of score points for each 
question (Apple and TRS-80). 
SF$: Full file name for score file. 
SM: Scoring mode: immediate, 
review, final score, or no feedback. 
SP: Location of space in user's name. 
Used in separating first name. 
SQ: Used in score calculation. 
T: Question type: T/F, multi, fill-in. 
TD$: Today's date. 
TF: Correct answer for a True/False 
question (1 =True, = False). 
TF$: String containing "TRUE" and 
"FALSE" (ATARI). 
TF$(*): Array containing."TRUE" 
and "FALSE" (Apple and TRS-80) 
TS: Total score achieved. 
TV: Total value of all questions 
given. 

V: Used for VTAB positioning. 
VFLAG: Question value flag. 
VH: Value of question if hint is 
given. 

VV: Used in VTAB positioning. 
X: Misc. 

X$: Input work variable. 
X97o: Temporary variable. 
XX%: Temporary variable. 
Z: Time delay loop variable. 
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SB SS SS SB SB SS SS SS SS SB SB 
SS SS 

SS APPLESOFT BASIC SS 
SS 'CATS2 - DISK VERSION' SS 
S3 AUTHOR: JON R. VOSKUIL SS 
SS COPYRIGHT <C) 1982 SS 
SS SS 

SS SS SS SS SS SS SS SS SS SS SS 

Display title page and initiaiize program. 
100 D* = CHRt (4): PRINT D»"N0I10 



NC,I,0' 
no TEH : HOHE : VTAB 8: PRINT 
TAB( 17)'C A T S": VTAB 12; 
PRINT TAB( 12) "BY JON R. V 
OSKUIL" 
120 VTAB 18: INVERSE : HTAB 14: PRINT 

"TESTING NODULE": NORMAL 
130 DIM Qt(100),A$(300),H«(100), 
N*(9),TFt(l),eX(I00),SX(100) 

140 TFt(O) = "FALSE":TF$(1) = "TR 

UE" 
150 KEY = - li384:PRESS = 1285CL 

R = - 16368:BR$ = CHR« (93 

) + CHRt (91)!S = - 16336: 

BEL$ = CHRt (7):B« = CHR* 

(8) 
160 GOSUB 15000:VFLAG = 0:PFLAG = 

0:HYNT = 1:H0DE = hSM = 1:1 
= RND f - PEEK (78) - 256 
t PEEK (79)): ONERR GOTO 

8000 
170 VTAB 21: HTAB 5: PRINT "TYPE 
IN TODAY'S DATE (MM/DO/YY)" 

: HTAB 9: INPUT "AND PRESS R 

ETURN: ";TD$ 
180 IF LEN (TD») < > 8 OR HID» 

(TD$,3,1) < > ■/" OR MID* 

(TDt,6,l) < ) "/" THEN PRINT 

BEL»: GOTO 170 
190 FOR I = 1 TO 100;QX(I) = I:S 

7.(1) =0: NEXT 

At this point, the user may hit CTRL-Q to 
quit, CTRL-S to set test options, or 
RETURN to go on. User must i<now master 
password to set options. 

200 VTAB 24: GOSUB 10000:)( = ASC 

(Xt): IF X = 13 THEN 1000 
210 IF X = 17 THEN HOME ; CLEAR 

: END 
220 IF X < > 13 THEN 200 
300 HOHE I VTAB 8: PRINT "MASTER 

PASSWORD: "j:P$ = "" 
310 GOSUB 10010: IF Xt = CHRI ( 

13) THEN 330 
320 POKE S, PEEK (S): POKE S, PEEK 

(3): PRINT 'V;i?% = P» + X» 

: GOTO 310 
330 IF P* = MP$ THEN GOSUB 3000 

340 GOTO 200 

Entry section of routine to administer test. 
Get student's name, test name, and 
password. 

1000 HOME : VTAB 4: PRINT "PLEAS 
E TYPE YOUR NAME (FIRST AND 
LAST), AND PRESS RETURN:": PRINT 
: INPUT "',m:l = LEN (N«): 
IF L = THEN 1000 
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1 TO L:C« = 

IF C» = • ■ THEN 

OR SP = L 



- 1): PRINT 
■;F«:QF« 



1010 SP = 0: FOR I ■• 
HIDt (N$,I,1) 

SP = I 
1020 NEXT I: IF SP 

THEN 1000 
1030 NF$ = LEFT* (N»,SP 

! INPUT "TEST NAME: 
= "Q." + Ft 
1040 PRINT : PRINT "PASSHORD: '; 

:F« = "" 
1050 GOSUB 10010: IF X% = CHRt 

(13) THEM 1070 
1060 POKE S, PEEK (S): POKE B, PEEK 

(S): PRINT "»";:P* = P« + X* 

: GOTO 1050 
1070 PRINT : PRINT : PRINT "INSE 

RT TEST DISK AND PRESS RETUR 

N": GOSUB 10010: PRINT : GOSUB 

7000: IF PAF THEN INVERSE : 
PRINT BEL* i "INCORRECT PASSU 

ORD": NORMAL : GOTO 200 
1080 IF EF THEN 200 
1090 SF* = "S." + F«: ONERR GOTO 

1110 
1100 PRINT D<"VERIFY"SF*: GOTO 1 

160 
1110 E = PEEK (222): CALL FIX: IF 

E < > 6 THEN FLASH : PRINT 

: PRINT "ERROR ")E: NORHAL : 
GOTO 200 
1120 PRINT Dt"OPEN"SF$ 
1130 PRINT D*"HRITE"SFt 
1140 PRINT HP« 
1150 PRINT D«"CLOSE" 
1160 ONERR GOTO 8000 
Main routine to administer test. 



2000 
2010 



2020 
2030 
2040 

2050 

2060 
2070 



2080 



2090 



HOBE :QF = 1:QL = 0N:NQ = Q 
N: IF MODE < > 2 THEN 2030 

FOR J = 1 TO 3: FOR I = 1 TO 
NQ:R = RND (1) t NQ + 1:T = 
QX(I):B7.(I) = Q1(R):QX(R) = 
T: NEXT : NEXT :NQ = HUM: IF 
NO > QN THEN NQ = QN 
BL = NQ 

IF MODE ( > 3 THEN 2070 
QL = Q2: IF QL > QN THEN QL = 
QN 

QF = 01 ! IF BF > 8L THEN QF = 
QL 

NQ = QL - QF + 1 
TV = NQ: IF NOT VFLAG THEN 
TV = 0: FOR 1 = QF TO QL:Q = 
QX!I);TV = TV + VAL ( MID» 
(a«(Q),2,l)): NEXT 

FOR I = QF TO QL:Q = BX(I): 

GOSUB 4000; GOSUB 5000: NEXT 

I 

HOME : VTAB 8: PRINT "PRESS 

'R' TO REVIEW SKIPPED QUEST 
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IONS, OR 'E' TO END THE TES 

T.": GOSUB 10010: IF U = "E 

" THEN 2130 
2100 IF Xt < > "R" THEN 2090 
2110 FOR 1 = QF TO QL:Q = QXd): 
IF Si(Q) < THEN GOSUB 40 

00: GOSUB 5000 
2120 NEXT I: GOTO 2090 
2130 IF SM < > 2 THEN 2180 
2140 RF = 1: FOR I = QF TO QL:Q = 

57.(1); GOSUB 4000 
2150 IF SKQ) > THEN PRINT "Y 

OU SCORED "SKQ) / 100" FOR 

YOUR CORRECT ANSWER": GOTO 2 

170 
2160 PRINT "YOUR ANSWER WAS INCO 

RRECTj": GOSUB 5090 
2170 NORMAL : PRINT : GOSUB 1000 

0: NEXT I;RF = 
2180 IS = 0: FOR I = QF TO QL:B = 

8Z(I);TS = TS + SX(Q) ♦ (SH 

Q) > 0): NEXT ;TS = TS / 100 

2190 HOME : IF SM < 4 THEN PRINT 
; PRINT NF*;", YOUR SCORE IS 
■;TS,-" OUT OF ";TV: PRINT " 
OR "; INT (.5 + 100 t TS / T 
V);" PERCENT." 
2200 GOSUB 6000: PRINT : PRINT i 
GOTO 190 

Routine to allow teacher to ctioose 
number of questions to be administered 
and to reset test options if desired. 

3000 HOME : RESTORE : GOSUB 1100 

0:SM = IT 
3010 GOSUB 11000:MODE = IT; IF M 

ODE = 1 THEN 3080 
3020 IF MODE = 3 THEN 3050 
3030 VTAB 9: HTAB 23: INPUT "/HO 

W MANY? "iX»:NUM = VAL (X») 

: VTAB 11; IF NUM < 1 THEN 3 

030 
3040 SOTO 3070 
3050 VTAB 10; HTAB 24; INPUT "FR 

OM °;Xt;Ql = VAL (XO: IF B 

1 < 1 THEN 3050 
3060 VTAB 10: HTAB 33: INPUT "TO 
";Xt:Q2 = VAL (X»); IF Q2 < 

1 OR Q2 < Bl THEN 3060 
3070 PRINT 

3080 GOSUB 11000:VFLAG = IT - 1 
3090 GOSUB 11000:HYNT = 2 - IT: IF 

NOT HYNT THEN 3120 
3100 GOSUB 11000:PFLA6 = 0; IF I 

T = 1 THEN 3120 
3110 PFLAG = 1; VTAB 22: HTAB 24: 

INPUT "/lOTHS (0-9); "jHP; VTAB 

24;HP = INT (HP + .5): IF H 

P > 9 OR HP < THEN 3110 
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3120 VTAB 24: HTAB 1: PRINT "ALL 
OK? •;: GET U: IF Xt = "N" 
THEN 3000 

3130 IF Xt < > "Y" THEN 3120 

3140 CALL - 875: RETURN 

Routine to administer an individual test 

question. 

4000 HOME :Qt = Bt(Q); GOSUB 900 


4010 INVERSE : PRINT "i";I - BF + 

1;" QF "jNQ;" VAL="|V;" OF 
"iTV;" "■,: IF HS THEN VH = 
INT (10 I V t (10 - HP) + . 

5) / 100: PRINT "(";VH;" W/H 

INT)"; GOTO 4030 
4020 PRINT "(NO HINT)" 
4030 NORMAL : PRINT ; PRINT Bt; PRINT 

; IF T = 1 THEN PRINT "TRUE 
OR FALSE? ": PRINT 
4040 IF T < > 2 THEN 4070 
4050 FOR J = 1 TO N:JJ = Al + J - 

1: PRINT J;". ";At(JJ): IF PEEK 

(37) > 18 THEN FLASH : PRINT 

" ';; GOSUB 10010: NORMAL : PRINT 

Bt)" "iBti 
4060 NEXT J; PRINT 
4070 QV = V: IF RF THEN 4140 
4080 INPUT "ANSWER (S TO SKIP) " 

;At: IF Al < > "H" THEN 411 


4090 PRINT : IF HS THEN QV = VH: 
PRINT H*(Q): PRINT : GOTO 4 

080 
4100 PRINT "NO HINT AVAILABLE"; PRINT 

: GOTO 4080 
4110 IF At = "S" OR At = "" THEN 

4140 
4120 IF T = 2 THEN X = VAL (At) 

: IF X < 1 OR X :> N THEN 408 


4130 IF T = 1 THEN At = LEFTt ( 

At,l): IF At < > "T" AND At 

< ) "F" THEN 4080 

4140 RETURN 

Routine to score the response to an in- 
dividual question. 

5000 SB = 0: IF At = "S" OR At = 

"■ THEN SQ = - QV: GOTO 516 


5010 IF T = 1 AND ((At = "T" AND 

TF) OR (At = "F" AND NOT TF 

) ) THEN SB = QV 
5020 IF T = 2 AND X = C THEN SQ = 

QV 
5030 IF T .-.. > 3 THEN 5070 
5040 FOR J = Al TO Al + N - 1:L = 
LEN (At (J)); IF C > AND C 

< = L THEN L = C 

5050 IF LEFTt (At(J),L) = LEFTt 
(At,L) THEN SQ = BV 



5060 NEXT J 


7070 FOR I = 1 TO AP: INPUT A* (I 


5070 IF S« < > 1 THEN 5160 


): NEXT I 


5080 PRINT ; IF SQ THEN PRINT " 


7080 FOR I = 1 TO ON: INPUT H»(I 


CORRECT": FOR Z = 1 TO 600: NEXT 


): NEXT I: GOTO 7120 


I; GOTO 5160 


7090 EF = 1:P«* = "": FLASH :E = 


5090 PRINT "CORRECT IS ■;: INVERSE 


PEEK (222): IF E = 6 THEN PRINT 


: IF T = I THEN PRINT TF$(T 


"TEST NOT ON THIS DISK": GOTO 


F) 


7110 


5100 IF T = 2 THEN PRINT C 


7100 PRINT "ERROR ";E 


5110 IF T < > 3 THEN 5140 


7110 NORMAL : CALL FIX 


5120 FOR J = Al TO Al + N - 1: PRINT 


7120 PRINT Dt "CLOSE": ONERR GOTO 


A$(J);: IF J < Al + N - 1 THEN 


8000 


NORMAL : PRINT " OR ';: INVERSE 


7130 RETURN 




General error-handiing routine. 


5130 NEXT J: PRINT 

5140 IF RF THEN 5190 

5150 NORMAL : PRINT : 60SUB 1000 


8000 E = PEEK (222): CALL FIX: IF 

E = 255 THEN RESUME 
8010 INVERSE : PRINT ; PRINT "ER 



5160 IF SX(Q) = THEN SZ!8) = S 

B « 100 + .5: GOTO 5190 
5170 n = ABS (SX(Q)):XXX = ABS 

(SQ) » 100 + .5: IF XX > XXX 

THEN XX = XXX 


ROR "iE;" IN LINE "; PEEK (2 
18) + PEEK (21?) « 256: NORMAL 
: PRINT "PROGRAM TERMINATED" 
: END 
Separate encoded question/response. 


5180 SX(Q) = SGN (SQ) » XX 


9000 T = VAL ( LEFT* (9»,1)):V = 


5190 RETURN 


1: IF NOT VFLAG THEN V = VAL 


Save score data to disk. 

6000 PRINT : PRINT : PRINT "NOW 

RECORDING SCORE ON DISK": ONERR 
GOTO 6090 
6010 PRINT Dt"APPEND"SF$ 
6020 PRINT D$"WRITE"SFt 
6030 PRINT Nt: PRINT TDt: PRINT 

QF: PRINT QL: PRINT TV: PRINT 

TS 
6040 FOR I = 1 TO 100: PRINT 8X( 

I): NEXT 


( MID* (Qt,2,l)) 
9010 IF T = 1 THEN TF = VAI ( MID* 

(Qt,3,l)): GOTO 9030 
9020 Al = VAL ( MTD» (Q*,3,3));H 

= VAL ; HID* (B*,6,1)):C = 

VAL < MID* (Q»,7,l)) 
^030 X = 9 - 4 » (T = 1):HS = VAL 

( MID* (Q*,X - 1,1)) t HYNT: 
IF NOT PFLAG THEN HP = VAL 


( MID* (Q*,X,1)) 
9040 Q* = RIGHT* (8*. LEN (S») - 

X) 
9050 RETURN 

Single key Input routine. Enter at line 
10000 for optional pause message. 

10000 HTAB 5: PRINT BR*;" PRESS 
RETURN TO CONTINUE "jBR*; 

10010 POKE CLR,0: WAIT KEY, PRESS 
: GET X*: RETURN 

Read menu headings and options. 


6050 FOR I = 1 TO 100: PRINT SI( 

I); NEXT 
6060 PRINT DfCLOSE" 
6070 ONERR GOTO 8000 
6080 RETURN 
6090 E = PEEK (222): CALL FIX: PRINT 

: FLASH : PRINT "ERROR "jE: NORMAL 
6100 PRINT : GOSUB 10000: GOTO 6 

000 


Read in test data from disk. 


11000 READ N*: READ N: FOR I = 1 


7000 PAF = 0:EF = 0: PRINT : ONERR 


TO N: READ N*(I): NEXT I 


GOTO 7090 


Display menu heading. 


7010 PRINT Dt"VERIF¥"8F« 

7020 PRINT D»"OPEN"QFt 

7030 PRINT D«"READ"eF« 

7040 INPUT Q»(0):QN = VAL ( MID* 


1 1010 INVERSE : HTAB 4: PRINT N* 

: NORMAL rV = PEEK (37) 
Display menu options. 


(Q$(0),4,3)):AP = VAL ( LEFT* 


11020 FOR I = 1 TO N 


iQ$(0),3)):P«» = RIGHT* (Q* 


11030 PRINT TAB( 4)1;". ";N*(I) 


(0), LEN (Q*(0)) - 6) 




7050 IF P« ( > PH* THEN P«< = " 


11040 POKE S. PEEK (S) 


":PAF = 1: GOTO 7120 


11050 NEXT I 


7060 FOR I = ) TO ON: INPUT B»(I 


Display menu prompt. 


): NEXT I 


11060 VTAB V: HTAB 1: PRINT "=>" 



A harvest of 
savings front 




Electronics 



soFnmRE 



APPLE ' ATARI • TRS80 • IBM 

A full line of software for business, games 
and education Up tO 35% off! 



MGSE 


l(JS 


ViSICORP 


STONEWARE 


ON LINE 


SYNERGISTIC 


ECXJ-WARE 


HAYDEN 


HOWARD 


AND AAANY MORE 



HARDWARE 



AMDEK • HAYES • MICROSOFT 

Ust Our Price 
32K RAM card $293.00 $205.00 
Video Term $345.00 $279.00 
Lazer Products 20% off 



DISKS 



Maxell BoxoflO,5'/4",SS-DD 
Verbatim Boxof ]0,5',4",SS-DD 



$35.00 
$29.00 



MONITORS 



LE MONITORS 


Ust 


Our Price 


9" Green 


$189,00 


$159.00 


12" Green 


$199.00 


$169.00 


ZENITH 






12" Green 


$179.00 


$129.00 


Plus a full line of AMDEK Monitors 


PRINTERS 


PAPER TIGER 


Ust 


Our Price 


460G 


$1,094.00 


$950.00 


560G 


$1,394.00 


$1,250.00 


EPSON 






MX 70 


$449.00 


$395.00 


MX SOFT 


$745.00 


$595.00 


MX lOOFT 


$945.00 


$795.00 



CALL FOR THIS MONTHS SPECIAL ! 

1-800-835-2246 EXT. 21 1 

OR 

702-452-5589 



5 1 30 East Charleston Blvd. 

Suite 5SS 
LasVegas, Nevada 89122 



Phone orders welcome. Mail orders may send 
charge card number (include expiration date), 
cashiers check, money order or personal check 
(allow ten business days for personal or com- 
pany checks to clear). Add S3,00 for shipping, 
handling and insurance. [Nevada residents add 
5,75% sales tax. Please include phone number. 
All equipment is in factory cartons with manu- 
facturers warranty. Equipment subject to price 
change and availability. Call or write for price list. 



SoftSide 



51 



11070 



I POKE CLR,0 
GOSUB lOOlOslT 



VAL (XI) 



11080 POKE S, PEEK (S) 

11090 IF IT < 1 OR IT > N THEN 1 

lOiO 
11100 VTAB V! HTAB 1: PRINT " " 

!:VV = V + IT: VTAB W: HTAB 

1: PRINT •=>"; 
11110 GOSUB 10010:X = ASC (Xl) 
11120 IF X < > 13 THEN IT = VAL 

(Xt)! VTAB VV! HTAB 1: PRINT 

" ";: GOTO 11080 
11130 VTAB V + N + 2: HTAB 1: RETURN 

Set Master password. POKE in stack fix 

routine. 

15000 X$ = "104, li8,10A, 166, 223,1 

54,072,152, 072,096" 
15010 FIX = 768: FOR I = TO 9!J 
= VAL ( MID* (X*,I t 4 + 1 

,3)): POKE FIX + I, J: NEXT 
15020 MP* = "PASSHORD" 
15030 RETURN 
Menu data 

50000 DATA " SCORING FEEDBACK ", 
4. SCORE EACH QUESTION IMMEDI 
ATELY, REVIEW !< SCORE QUESTIO 
NS AT END.GIVE FINAL SCORE 
NLV, WITHHOLD SCORE 

50010 DATA " QUESTIONS TO ADHINI 
STER ", 3, ALL, RANDOM SELECTIO 
N, RANGE OF NUMBERS 

50020 DATA " QUESTION VALUES ",2 
,AS ENTERED, ALL THE SAME 

50030 DATA " HINT OPTION ",2, AS 
ENTERED, OFF 

50040 DATA " HINT PENALTY ",2,AS 
ENTERED, SET FIXED PENALTY 



APPLE™ SWAT TABLE FOR: 


CATS2 - DISK VERSION 






SWAT 






LINES 


CODE 


LENGTH 1 


100 - 190 


RH 




526 


200 - 1030 


SA 




407 


1040 - 1150 


NO 




361 


1160 - 2100 


QH 




434 


2110 - 3010 


IS 




457 


3020 - 3130 


TS 




397 


3140 - 4100 


IS 




427 


4110 - 5070 


BH 




309 


5080 - 5190 


CN 




295 


6000 - 7000 


CI 




267 


7010 - 7120 


CI 




340 


7130 - 11000 


TM 




426 


11010 - 11120 


FH 




250 


11130 - 50040 


EZ 




483 



5S SS S5 SS SS SS S5 S5 SS SS 3S 
SS SS 

SS APPLESOFT BASIC SB 
SS 'CATS2 - TAPE CHANGES' SS 
SS AUTHOR: JON R. VOSKUIL SS 
SS COPYRIGHT !C) 1982 SS 
SS SS 

SS SS SS SS SS SS SS SS SS SS SS 

DELETE Line 100 

DELETE Lines 1080-1160 
CInange or add lines as foilows. 

130 DIM Q*(100),A*(300),Ht(100),N* 

(9),TF*(1),QX(100),SX(100),NAM 

1(20),SS;'.(20) 
160 GOSUB 15000: VFLAG = 0:PFLAG = 

0:HYNT = i:MODE = 1;SM = 1:X = 

RND ( - PEEK (78) - 256 t PEEK 

(79)):SN = 
190 FOR I = 1 TO 100:QJ(I) = Ij NEXT 

:SN = SN + 1 
200 VTAB 24: SOSUB 10000: X = ASC 

(Xt): IF X = 13 THEN 900 
220 IF X < > 15 AND X < > 19 THEN 

200 
330 IF P* = MP* AND X = 15 THEN SOSUB 

3000 
335 IF Pt = MP* AND X = 19 AND SN > 

1 THEN GOSUB 6000 
900 IF NOT LODED THEN GOSUB 7000 

910 IF SN > 20 THEN HOME : INVERSE 
: PRINT : PRINT : PRINT "20-ST 
UDENT MAXIMUM REACHED": NORMAL 
: GOTO 200 

1030 NAM*(SN) = NtiNF* = LEFT* (N* 
,SP - 1) 

1070 IF Pt < > P«t THEN INVERSE 
: PRINT BEL*: PRINT "INCORRECT 
PASSWORD": NORMAL : GOTO 200 

2180 TS = 0: FOR I = QF TO 8L:Q = Q 
liD-.n = TS + S;(Q) t <SX(Q) > 
0):S;'.(Q) = 0: NEXT :TS = TS / 
100:SP = INT (,5 + 100 t TS / 
TV);SSI(SN) = SP 

2190 HOME : IF SH < 4 THEN PRINT 
: PRINT NFti", YOUR SCORE IS " 



2200 



;TS;" OUT OF ";TV: 
;SPj" PERCENT." 
GOTO 190 



PRINT "OR 



Substitute the foilowing for lines 
6000-6100. Instead of saving the scores 
to disk for later analysis, this routine 
displays them on the screen. 

6000 HOME :AV = 0: FOR I = 1 TO SN 
- 1:AV = AV + SSX(I): NEXT :A 

V = INT (AV ./ (SN - li + .5) 
6010 FOR I = 1 TO SN - 1; PRINT SPC( 

I < 10);Ii". ';NAMt(I); 



6020 L = LEN ( STRt (SSKI))): HTAB 

38 - L: PRINT SSKDj" 7." 
6030 NEXT I: IF SN > 20 THEN SN = 

1 
6040 PRINT : PRINT TAB{ 9)"AVERA6 

E SCORE = "iAV;" X": IF SN = 1 
THEN INVERSE : PRINT " PRES 

SING RETURN ERASES THESE SCORE 

S ": NORMAL 
6050 RETURN 

Substitute the foiiowing for lines 
7000-7130 

7000 HOME : VTAB 6:X = FRE (0): INPUT 
"POSITION TAPE AT BEGINNING OF 
TEST, START PLAYING, THEN 

PRESS 'RETURN'. "iX* 

7010 FLASH : PRINT : PRINT "LOADIN 
G": NORMAL 

7020 RECALL Q*: RECALL A*: RECALL 
Ht: CALL RD 

7030 CALL FIX,Q*(0): CALL FIX,At(0 
): CALL FIX,Ht(0) 

7040 QN = VAL ( MIDt (Qt(0),4,3)): 
AP = VAL ( LEFT* (Qt(0),3));P 
N* = RIGHT* (Q*(0), LEN (Qt(0 
)) - 6): LODED = 1: RETURN 

DELETE Lines 8000-8010 

Substitute the foiiowing for lines 

15000-15030. instead of the ONERR fix, 

these pokes set up the tape read and 

write routines. 

15000 HR = 768: RD = 800: FIX = 865: M 
= WR 

15010 X* = "160,111,162,000,132,060 
,134,061,160,116,032,025,003,1 
64,111,166,112,132,060,134,061 
,164,115,166,116,132,062,134,0 
63,076,205,254,160,024,162,000 
,132,060,134,061,160,029,132,0 
62,134,063,032,253,254,165,028 
,056,229,024,133" 

15020 GOSUB 15100 

15030 X* = "008,165,029,229,025,133 
,009,160,002,162,000,056,181,1 
11,149,062,245,008.149,111,149 
,060,232,136,208,242,165,024,0 
56,229,111,133,006,165,025,229 
,112,133,007,076,253,254,032,1 
90,222,032,123,221,032,108,221 
,160,002,165,155" 

15040 GOSUB 15100 

15050 Xt = "024,113,155,133,008,200 
,165,156,113,155,133,009,160,0 
00,177,160,240,015,200,177,160 
,056,229,006,145,160,200,177,1 
60,229,007,145,160,169,003,024 
,101,160,1.33,160,144,002,230,1 
61,197,008,208,220,165,009,197 
,161,208,214,096" 

15060 GOSUB 15100:MPt = "PASSHORD" 
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! RETURN 
15100 FOR I = TO 54: J = VAL ! HID* 
(X«,I t 4 + 1,3)): POKE M + I, 
J: NEXT :H = « + 55: RETURN 



APPLE™ SWAT TABLE FOR: 
CATS2 ■ TAPE VERSION 


LINES 


SWAT 
CODE 


LENGTH 


110 - 190 


KZ 




513 


200 - 1000 


GV 




403 


1010 - 2040 


2M 




411 


2050 - 2160 


IT 




4&4 


2170 - 3070 


BH 




440 


3080 - 4040 


HO 




434 


4050 - 5010 


HJ 




390 


5020 - 5130 


YJ 




288 


5140 - 6050 


6N 




382 


7000 - 10000 


2G 




511 


10010 - 11100 


00 




246 


11 1 10 - 15030 


OG 




576 


15040 - 50010 


FN 




519 


50020 - 50040 


XJ 




142 



SS SS SS SS SS SS SS SS SS BS ss 



ss 

SS 

ss 
ss 
ss 

ss 



APPLESOFT BASIC 
•'CATS3' 
AUTHOR: JON R. VOSKUIL 
COPYRIGHT (C) 1982 



ss 

SS 
SS 
SS 
SS 
SS 



SS SS SS SS SS SS SS SS SS SS ss 

Display title page and Initialize program 
100 Dt = CHR* (4): PRINT DfNORONC 



110 



,1,0" 

TEXT : HOHE 
17)"C A T S" 



VTAB 8: PRINT TAB( 
VTAB 12: PRINT TAB( 

12) "BY JON R, VOSKUIL" 
120 VTAB 18: INVERSE : HTAB 10: PRINT 

'SCORE ANALYSIS MODULE": NORMAL 
130 DIM QX(100),SZ(100),NAH«(100\ 

TD»(100),HR'.;(100),NVMiOO),TSX( 

100) 
140 KEY = - 16:'S4:PRESS = 128:CLR = 
- 16368: BR$ = CHR« (93) + CHR* 

t91):S = - 16336:BELt = CHR* 

(7) 

GOSUB 15000 

VTAB 23: FOR I = 1 TO 100: NX (I 

) = 0:MRX(I) - 0: NEXT : GOSUB 

1000 

GOSUB 3000 
Main options menu 

180 RF = 0: HOME : VTAB 6: PRINT "R 
)EVIEW THE SAME SCORES': PRINT 
: PRINT "N)EH SCORES FROM DISK 
": PRINT : PRINT "Q)UIT": GOSUB 

10010 



150 
160 



170 



200 

210 
220 



•R" THEN RF = li GOTO 



THEN HONE : GOTO 



"Q" THEN 60EUB 9000 



190 IF Xt = 
160 

IF X* = "N" 
160 
IF X* 
GOTO 180 
Main line evaluation routines 
1000 IF RF THEN 1200 
1010 PRINT 'INSERT TEST SCORE DISK 
AND PRESS RETURN': GOSUB 1001 
0:N = 0:AV = 0:HI = OtLQ = 100 
:PF = 0: PRINT 
1020 ONERR GOTO 1190 
1030 HOHE ! PRINT D*"CATALOG" 
1040 PRINT : INPUT "FILE NAME: S. 

";F»:SF$ = "S." + F$ 
1050 PRINT : PRINT "MASTER PASSWOR 
D: ";:Pt = "" 

GOSUB 10010: IF Xt = CHR* (1 
3) THEN 1080 

POKE S, PEEK (S): POKE S, PEEK 
!S): PRINT 't";:P* = P» + X«: GOTO 
1060 

HOME : VTAB 8: PRINT "READING 
SCORES...": PRINT D*'VERIFY"S 
Ft 

PRINT Dt'OPEN'SFt 
PRINT D*"READ"SFt 
INPUT MPt: IF MPt < > P* THEN 
PRINT D*"CLOSE": INVERSE : PRINT 
: PRINT BELt"INVALID PASSWORD" 
: NORMAL ; PRINT : GOSUB 10000 
: PRINT : HOHE : GOTO 1030 
1110 N = N + 1 
1120 PRINT DfREAD"SFt 
1130 INPUT NAMt(N),TDt(N),QF,QL,TV 

,rs 

1140 SS = 100 I TS / TV + .5!TSX(N) 
= S;;:AV = AV + S7. 

1150 IF SS > HI THEN HI = S2 

1160 IF Sy. < LO THEN LO = SX 

1170 PRINT Dt"POSITION"SF*",R200" 

1180 GOTO 1110 

1185 PRINT D*"VERIFY"SFt 

1190 PRINT Dt"CLOSE":E = PEEK (22 

2);ERL = PEEK (218) + PEEK ( 

219) t 256: POKE 216,0: CALL F 

IX:N = N - 1:AV = INT (AV / N 

+ .5) 

1192 IF E = 6 THEN VTAB 10: PRINT 
BEL* + BELt + "FILE ' " + Ft + 
"' NOT ON THIS DISK": VTAB 22 
: GOSUB 10000: PRINT : GOTO 10 
20 

1194 IF E < > 5 THEN VTAB 22: PRINT 
BELt;BELti "ERROR :";E;" IN LIN 
E ";ERL: GOSUB 10000: GOTO 100 



1060 



1070 



1O80 



1085 
1090 
1100 



1200 



HOHE : INVERSE 
5000: GOTO 1220 



IF PF THEN GOSUB 



1210 PRINT SPC( 39) J : HTAB 1 
1220 PRINT N;" TESTS L0=';L0;"7. 

HI="jHI;"y, AV="|AV;"X": NORMAL 
: PRINT 
1230 PRINT TAB( 9) "STUDENT 

DATE PCT (ADJ)°! PRINT " 



';NA 



1280 



1290 



1300 



1310 



1320 
1330 

1340 

1350 
1360 



IF X* 
IF Xt 



PRINT 



": POKE 34,4 

1240 FOR I = 1 TO N 

1250 PRINT SPC( I < 10);Ii' 

M*(I); 
1260 HTAB 22: PRINT TDt(I)| 
1270 St = STRt (TSX(l)): HTAB 34 - 
LEN (St): PRINT St; 
IF HI > THEN ASi = 100 » TS 
2(1) / HI + .5;St = STRt (ASX 
): HTAB 35: PRINT "("; SPC( 3 
LEN (St));St;")"; 
PRINT : IF I / 18 = INT (I / 
18) THEN PRINT : GOSUB 10000: 
PRINT : PRINT 

NEXT I: PRINT : PRt 0:PF = 0: 
ID = 0: VTAB 24 
HTAB 1: PRINT BELt;"R)EVIEH I 
)NDiy P)RINT OONT N)EH B)UIT" 
;: POKE 34,0: GOSUB 10010 
IF Xt = "R" THEN 1200 
IF X* = "I" THEN CALL - 875 
: HTAB 1: GOSUB 2000 

IF Xt = "N" THEN PRINT 
: GOTO 1000 

0" THEN GOSUB 9000 
> "P" THEM 1390 
1370 PF = l! IF ID THEN GOSUB 2050 

: GOTO 1310 
1380 GOTO 1200 

1390 IF Xt < ) "C" THEN 1310 
1400 RETURN 

Lines 2000-2160 are the routine to review 
scores for an Individual student 

2000 POKE 34,23: HOME : INPUT "TES 

T NUMBER: ■;Xt:X = VAL (Xt): POKE 
34,0: IF X < 1 OR X > N THEN I 
D = 0: GOTO 2160 

PRINT Dt"OPEN"SFt 

PRINT Dt"POSITION"SFt",R"206 t 
(X - 1) + 1 

GOSUB 4000 

PRINT Dt"CLOSE" 

Print out number of correct/incorrect 
answers for an Individual student 

2050 HOME : INVERSE : IF PF THEN GOSUB 

5000: GOTO 2500 

Screen print version 

2060 PRINT X;": "iNt; TAB( 26)TDti 

TAB( 36)TS7.(.K);"J": NORMAL 
2070 VTAB 2: HTAB 1; PRINT 'Q« SCR 
Qt SCR Q« SCR Q« SCR Q* S 
CR": PRINT ' -- 



2010 
2020 

2030 
2040 
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2080 FOR I = 1 TO NQ 

2090 C = INT C; I - 1) / 20) -.R = 3 + 

I - 20 » C 
2100 VTAB R: HTAB C « 8 + 1 
2110 SS = SJ(OX(!)) / 100: PRINT SPC( 

07.(1) < lO>i0X(I)i SPC( 1 + (S 

S < 1 AND SS > 0)1; 
2120 IF SS ) = THEN PRINT SS;: 

SOTO 2140 
2130 PRINT "S"; 
2140 NEXT I: PRINT ; PRINT 
2150 ID = 1: PR# 
2160 PF = 0: VTAB 24: RETURN 
Printer version of above routine 
2500 PRINT X;"; ";N«j TAB{ 26)TD$j 

TAB! 3i)TSX(X)i"r 
2510 PRINT "": PRINT "Ql SCR Q« S 

CR a« SCR Qi SCR Q# SCR Q« 
SCR Ql SCR Ql SCR Ql SCR 

Q# SCR": PRINT " 

ti 

2520 FOR J = 1 TO NQ 
2530 SS = SX(QS(J)) / 100: IF SS < 
THEN SS* = ' S": GOTO 2550 

2540 SS* = " " + STR* (SS):SSt = 

RIGHT* (SS*,4) 
2550 Q* = " " + STR* (aX(J)):Q* = 

RIGHT* (Q*,2) 
2560 PR* = PR* + Q* + SS* + " ": IF 

LEN (PR*) > 75 THEN PRINT PR 

t:PR* = "": PRINT "" 
2570 NEXT h PRINT PR* 
2580 PF = 0:ID = 1: PR! 0: VTAB 24: 

RETURN 
Print out total number of correct/Incorrect 
answers for all students 

3000 HONE : INVERSE : PRINT 'PERCE 

NT OF WRONG ANSKERS, BY QUESTI 

ON «■: NORMAL : PRINT "Ql I XH 

Ql I XM Ql t XH Ql I XW Ql I 

JM'-. PRINT " 



3010 INVERSE : FOR C M TO 4: FOR 
fi = 1 TO 20:NN = R + 20 » C:N* 
= RIGHT* i" " + STR* (NN),2 
): VTAB R + 3: HTAB C t 8 + 1: 
PRINT N*|: NEXT : NEXT : PRINT 
: NORMAL : ONERR GOTO 3090 

3030 PRINT D*"OPEN"SF*: PRINT D*"R 
EAD"SF*: INPUT HP* 

3040 EF = 0: GOSUB 4000: IF EF THEN 
3100 

3050 FOR I = 1 TO N6:Q = QI!I):HRX 
(0) = »RZ(C) + (SX(QX(I)) < = 
0):Him = N'i(Q) + 1 

3060 HS = INT (100 t WRX(Q) / NX(Q 
) + .5): IF WX = 100 THEN «7. = 



99 
3070 C = INT ((Q - 1) / 20) jR = Q - 

20 t C + 3: VTAB R: HTAB C t 8 
+ 3 + (NX(G) < 10): PRINT NI( 

Q); SPCI 1 + («I< lODjMJ;: NEXT 

: VTAB 23: PRINT 
3080 GOTO 3040 
3090 PRINT DfCLOSE": POKE 216,0: CALL 

FIX 
3100 VTAB 24: HTAB 5: PRINT BEL*;" 

OONTINUE P)RINTOUT Q)UI 

T";: GOSUB 10010 
3110 IF X* = "P" THEN GOSUB 3500 
3120 IF X* = "Q" THEN GOSUB 9000 
3130 IF X* < > *C' THEN 3100 
3140 RETURN 
Print out answer percentages 

3500 HOME : GOSUB 5000 
3510 PRINT " 7. OF INCORRECT ANSWER 
S, BY QUESTION I": PRINT "==== 

======-: PRINT 

3520 PRINT " QUESTION I I OF T 
ESTS X MISSED"! PRINT " - 

_a 

3530 FOR I = 1 TO 100: IF NX (I) > 
THEN HX = INT (100 t HRX(I) 
/ HX(I) + .5): PRINT TAB( 7 + 
fl < 10));I; TAB( 21 + (NX(I) < 
10));NX(I); TAB( 34 ^ («X < 10 
iijWX 
3540 NEXT : PRINT : PRI 0: RETURN 
Read In test score data from disk 

4000 ONERR GOTO 4100 

4010 PRINT Dt'READ'SF* 

4020 INPUT N*,TD*,QF,aL 

4030 PRINT Dt"POSITION"SFf,R"QF + 

1 
4040 PRINT D*"READ"SF* 
4050 NQ = QL - QF + 1: FOR I = 1 TO 

NQ: INPUT QX(I): NEXT 
4060 PRINT D*"P0SITI0N"SFt",R'100 - 

QL 
4070 PRINT DfREAD'SF* 
4080 FOR I = 1 TO 100: INPUT SX(I) 

! NEXT 
4090 GOTO 4110 
4100 PRINT DfCLOSE"; CALL F1X:EF = 

1 
4110 POKE 216,0: RETURN 
Routine to activate printer 

5000 NORMAL : VTAB 6: PRINT "PRESS 
RETURN WHEN THE PRINTER IS RE 
ADV.": GOSUB 10010: PRINT : PRINT 
"PRINTER IS NOT ON LINE.": PRI 
1: PRINT : HOME : RETURN 

Verify that user really wants to quit 



9000 CALL - 875; HTAB 1: PRINT 'D 
YOU WANT TO QUIT? ";: 6ET Z* 
: IF Z* < > T THEN CALL - 
875: RETURN 

9010 TEXT : HOME : END 

Single-key Input routine. Enter at line 
10000 for optional pause message 

10000 HTAB 5: PRINT BR*;' PRESS RE 

TURN TO CONTINUE °;BR*; 
10010 POKE CLR,0: WAIT KEY, PRESS: BET 

X*! RETURN 
Poke In stack-fix routine 
15000 X* = '104,168,104,166,223,154 

,072,152,072,096' 
15010 FIX = 768: FOR I = TO 9:J = 
VAL ( MID* (X*,I » 4 + 1,3)): 
POKE FIX + I, J: NEXT 
15020 RETURN 



APPLE™ SWAT TABLE FOR: 
CATS3 


SWAT 
LINES CODE 


LENGTH 


100 - 210 PI 


469 


220 - 1090 VJ 


353 


1100 - 1192 JB 


422 


1194 - 1300 BD 


469 


1310 - 2010 LO 


313 


2020 - 2130 6V 


362 


2140 - 2580 SI 


436 


3000 - 3090 BY 


504 


3100 - 4010 ON 


452 


4020 - 9000 SI 


371 


9010 - 15020 HC 


188 



A\AR\' 
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ATARI BASIC 

'CATS2 - DISK VERSION' 

AUTHOR: JON R. VOSKUIL 

TRANSL: ALAN J. ZETT 

COPYRIGHT (C) 1982 



Display title page and initialize program. 

100 N0<):N1=1:N2=2:N3=3:N4=4:N5=5:N10= 

I0:N37=37:N38=38:N48=48:N84=84:NKH>10 

0:N200=200 

105 N1000=1000;N4000=4000:W5000=5000:N 

8000=8000 ; N8 1 00=^8 1 00 : N 1 0000= 1 0000 : N 1 1 

00=11000 
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no CRS=752: GRAPHICS NO: POKE CRS,N1:CL 
OSE INliOPEN #Nl,N4,N0,'K":TRftP N8000 
115 POSITION 17, N5:? "C fi T S" 
120 POSITION 12,7:'> "by Jon R, Voskuil 

II 

125 POSITION 7.9:'' 'Translation by Ala 

n J. Zett° 

130 POSITION 13,14:? " TESTING hODULE " 

135 DIH Pt(N10),MP$(N10),PHt(N10),TF$( 

N10),TD»(8),F$l8),QFt(12),SF»(12),N*(2 

0) 

137 Did NF$!N10),BEL»(N4),C$(N1),S$!N1 

),I»(LNIN48) 

140 DIM QiN100),S(N100):AZ=INT(FRE(N0) 

t0.3):0=INT(AZ/(LN»N48+152)):H=B:A=H»N 

T 
.\ 

145 DIM Q$(Q*(LN»N48)).H$(H»N38),A«!At 

N38) 

147 S»=CHRill56):BELt=CHR$(253):BEL$(N 

2)=» " 

150 TF$(Nl,N5)^'FALSE":TF»(i,N10) = "TRLl 

E ';S=53279:60SUB 16000 

155 fi»(Nl,Nl) = " '':Ai(A»N38) = " "!At(N2) 

=A$(Nl):Qt=A$:H$=A$ 

liO VFLAe=NO:PFLAG=NO:HYNT=Nl:HODE=Nl: 

SM=N1:)!=RND!N0) 

170 TRAP 170:PQSITI0N N4,19:P0KE CRS.N 

0:? "TODAYS DATE (MM/DD/YY) ";: INPUT T 

Dl 

180 IF LEN(TD*)(>8 OR TD»(N3,N3)<>"/" 

OR TDt(6,6)<>"/" THEN 170 

190 FOR I=N1 TO N100:Q(I)=I:S!I)=N0:NE 

n I 

At this point, ttie user may hit CTRL-Q to 
quit, CTRL-S to set test options, or 
RETURN to go on. User must l<now master 
password to set options. 

200 TRAP N8000:P0SITinN 8,23:G0SUB NIO 

000: IF AZ=155 THEN GOTO NIOOO 

210 IF AZ=17 THEN GRAPHICS NO:CLR :END 

220 IF AZ015 THEN GOTO N200 

300 GRAPHICS NO: POSITION N2, 7:? "MASTE 

R PASSWORD ";:P$="" 

310 GET »N1,!(:IF .X=155 OR LEN!P»)=N10 

THEN 330 

320 POKE S,NO:POKE S,N1:P0KE S,N2:? "* 

";:P$(LEN(P*)<-N1)=CHR$()(.):G0T0 310 

330 IF Pt=MP$ THEN GOSUB 3000 

340 GOTO N200 

Entry section of routine to administer test. 
Get student's name, test name, and 
password. 

1000 GRAPHICS NO: POSITION N2,N3:? "ENT 

ER YOUR NAME (FIRST AND LAST),":? "AND 

PRESS RETURN ; ":■' 

1005 TRAP NIOOO: INPUT N$:L=LEN(N$) 

1010 SP=NO:FOR I^L TO Nl STEP -N1:C»=N 

$11,1): IF Ct=" " THEN SP=I 

1020 NEXT I: IF SP<N2 OR SP=L THEN GOTO 

NIOOO 



1030 TRAP N8000:NF$=Nt!Nl,SP-Nl):? :? 

■TEST NAME ';: INPUT F$:GOSUB 15000 

1040 ? :? "PASSWORD ";:P$="' 

1050 GET #N1,A2:IF AZ=155 OR LEN(P$)=N 

10 THEN 1070 

1060 POKE S,NO:POKE S,N1:P0KE E.N2:'' " 

«";:P$(LEN(P$)+NlJ=CHRt(.AZ):GOTO 1050 

1070 POKE CRS,N1:? :'' :';' "INSERT DISK 

AND PRESS RETURN "; BET IN1,A2:^ ; GOSUB 

7000 

1075 IF PAF THEN ■> " INCORRECT PASSWORD 

"; BEL*: GOTO N200 

1080 IF EF THEN GOTO N200 

109D SF$=QF*:SF»(LEN(8F$))="S":TRAP 11 

10 

1100 OPEN tN2,N4,N0,SF$:G0T0 1150 

1110 IF PEEK(195)<>1?0 THEN GOSUB 8100 

;EnTO N200 

1120 CLOSE IN2:0PEN #N2,8,N0,SFt 

1140 -^ IN2;MP$ 

1150 CLOSE tN2 

1160 TRAP N8000 



Main routine to administer test. 



;IF 



2000 GRAPHICS N0:QF=N1:QL=QN:NI 
M0DEON2 THEN 2030 

2010 FOR J=N1 TO N3:F0R !=N1 TO NQ;R=I 
NTlRND!N0)»NQ)+Nl:T=8(!):Q(I)=Q(R):QfR 
)=T:NEn I:NEn J:N0=NUt1 
2015 IF NQ>8N THEN NQ=QN 
2020 BL^NB 

2030 IF M0DEON3 THEN 2070 
2040 BL=Q2;IF QDQN THEN QL=QN 
205C QF=B1;1F OF>eL THEN QF=QL 
2060 NQ=eL-QF+Nl 

2070 TV=NS:!F NOT VFLAG THEN TV=NO:FQ 
R bQF TO BL:Q=:Q(1):L=GJLN»N48-N10:TV= 
TV+VAL(8$(L+N2.L+N2)):NE.U I 
2080 FOR 1=0F TO BL:B=0(I):6OSU6 N4000 
: GOSUB N5000:NEn 1 

2090 GRAPHICS NO:POSITION N2,7:P0KE CR 
S,N1;? "PRESS ^R' TO REVIEW SKIPPED QU 
EST IONS, OR 'E' TO END TEST." 
2095 GET IN1,AZ:IF A2=49 THEN 2130 
2100 IF A7082 THEN 2090 
2110 FOR I=BF TO eL:Q=B(I):IF SLQXNO 
THEN GOSUB N4000: GOSUB N5000 
2120 NEXT I: GOTO 2090 
2130 IF SMON2 THEN 2180 
2140 RF=N1:F0R I=QF TO BL:B=B(!):GOSUB 
N4000 

2150 POSITION N2,PEEK(N84)-N1:IF S(Q)) 
NO THEN "> "YOU SCORED ";S(Q1/N100:'' "F 
OR A CORRECT ANSWER": GOTO 2170 
2160 ? "YOUR ANSWER WAS INCORRECT; ":G0 
SUB 5090 

2170 ■' :GOSUB NlOOOOrNEH I:RF=NO 
2180 TS=NO:F0R 1=BF TO SL:Q=B(I):TS=TS 
+S!0'l(SiQ)>NO):NEn I:TS=TS/N100 
2190 GRAPHICS NO: IF SM<N4 THEN ? :? NF 
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T.H.E. 

SMART 

TERMINAL 




TURN YOUR ATARI 400 OR 800 INTO 
A REAL SMART TERMINAL 

Get up lo date information from 
services like Dow Jones, CompuServe, 
Tfie Source, and local timesharing 
computers. 

Save the information on disk or cassetle 
for editing or reviewing when you 
disconnect from the telephone line! 

Send the edited information back to 
the timesharing system when vou are 
ready. 

REDUCE YOUR CONNECT CHARGES 
BY READING AND WORKING OFF 
LINE!! 

• User Friendly 

• Disk or Cassette Based 

• Works with Hayes Smart Modem 

• X-ON/X-OFF Protocol 

• Runs in 16K 

• Serial or Parallel Printers 

• Menu or Command Driven 

• Save Data on Cassette or Disk 

• Upload/Download Atari 400 or 800 

• Multiple files in memory 

This package allows you to define, 
transmit and receive characters so you 
can send characters and conlrol codes 
not found on the Atari keyboard and 
receive characters that the Atari can 
translate into something it understands. 

A POWERFUL COMMUNICATIONS 
PACKAGE AT A SUPER PRICE! 

T.H.E. MOST Sophisticated Communica- 
tions Package Available for the Atari, 
40U or 800 and its available on Cassette, 
too! 

$49.95 cassette or disk 

ORDERING INFORMATION 

Call BINARY directly to place your 
order. Our order lines are open 24 
hours per day. 7 days per week. 

Shipping and handling charges: 

North America: Add $2.50 

Outside N.A.: Add 10'%. 

Mi( higan Residents: Add 4",. tax. 

Payment Methods: 

VISA, Master Charge, AMEX, cash, 
certified check, personal check 
allow for ( lea ranee t,mor\cy ordev. 

Look for Binary Software Products at 
your local computer store. 

Dealer Inquiries invited 

COMPUTER SOFTWARE 

3237 Woodward Ave. 

Berkley, Ml 48072 

(313)548-0533 

BJNARY CORPORATION 
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I;", VOUR SCORE IS "jTS;" OUT OF ";TV: 

? "OR ";INT(0.5+NlOO»T3yTV);" PERCENT' 

2200 GOSUB 6000:? :? iBOTO 190 

Routine to allow teacher to choose 
number of questions to be administered 
and to reset test options if desired. 

3000 GRAPHICS N0:REST0RE :POKE CRS.Nl: 

GOSUB N11000:S!1=n 

3010 GOSUB Nli000:l10DE=IT:IF I10DE=N1 T 

HEN J080 

3020 IF MODERNS THEN 3050 

3030 POSITION 24,8:? "/HOW NfiNY';:INPU 

T NUMjIF NUtKNi THEN 3030 

3040 ? :6GT0 3070 

3050 POSITION 25, 9:' "FROH'plNPUT Q!: 

IF 5KN1 THEN 3050 

30iO POSITION 33,9;? "TO";: INPUT Q2:IF 

Q2<N1 OR Q2<Q1 THEN 3060 
3070 ? 

3080 60SUB N11000:VFLA6=IT-N1 
3090 60SUB N11000:HyNT=N2-IT:IF HYNT=N 
THEN 3120 

3100 GOSUB N11000:PFLft6=N0:IF IT=N1 TH 
EN 3120 

3110 PFLfiG=Nl:POSITION 25,21:? "/lOTHS 
? !0-9)";:BET IN1,HP:HP=INT(HP-N48):IF 

HP<NO OR HP>9 THEN 3110 
3120 POSITION N2,23:? "ALL OK?";:GET i 
N!,Ai:IF A2=73 THEN 3000 
3130 IF AZ089 THEN 3120 
3140 ^ S$;: RETURN 

Routine to administer an individual test 
question. 

4000 GRAPHICS N0:I$=Q»!QtLNtN48-(LNtN4 
8-Nli, ie»LNtN48)-Nl): GOSUB 9000 
4010 ? "r;l-BF+Nl;' OF ';NQ;' / VAL=" 
;V;" OF "jTV;' "; 

4015 IF HSONO THEN VH=INT(,N10IVt(N10- 
HPi+0.5)/N100:^ ".("jVH;" W/HlNT)":60Tn 
4030 

4020 ? "iNO HINT)" 
4030 '> :? It: IF T=! THEN ? 'TRUE OR FA 

I CCOH, 
Lt.*L. : I : 

4040 ? :IF TON2 THEN 4070 
4050 FOR J=N1 TO N:JJ=A1+J-N1:PCSITI0N 
N2,PEEK(N84)-N1:? J;". ";A$(JJ»N38-N3 
7,JJ»N3S) 

4055 IF PEEK(Ne4)>19 THEN ? "2";:8ET I 
N1,AI:: St; 
40iO NEXT J:'> 

4070 aV=V;!F RFONO THEN 4140 
4080 TRAP 4080: POSITION N2,PEEKIN84)-N 
1:-? "ANSWER (S TO SKIP) ";: INPUT It 
4035 IF It<>"H" THEN 4110 
4090 ■> :IF HSONO THEN QV=VH;? Ht(QtN3 
B-N37,S»N38):? ;GOTO 4080 
4100 ? "NO HINT AVAILABLE":? :60T0 408 


4iI0 IF I$="S" THEN 4140 
4120 IF T=N2 THEN )(-ASC(It(Nl,Nl)!-N4B 
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:IF X<N1 OR X>N THEN 4080 
4130 IF T=N1 THEN lt=It(Nl,Nl):IF ItO 
«T" AND It<>"F" THEN 4080 
4140 TRAP N8000: RETURN 
Routine to score the response to an in- 
dividual question. 

5000 POKE CRS,N1:SQ=N0:IF It=»S" THEN 

SQ=-RV:60T0 51i0 

5010 IF T=N1 AND ((It="T' AND TF) OR ( 

It='F" AND NOT TF)) THEN SQ=QV 

5020 IF T=N2 AND X=C THEN SQ=QV 

5030 IF TON3 THEN 5070 

5040 AZ=LENnt)+Nl:It(A2)=" "!lt(N48) = 

" ":I$!AZ+Nl)=It(AZ):FOR J=A1 TO Al+N- 

N1;L=C:IF C=N0 THEN L=N38 

5050 IF A$(JtN38-N37,JtN38-N38+L)=It!N 

1,L) THEN SQ=QV 

5060 NEH J 

5070 IF SMONl THEN 5160 

5080 ^ :IF SQ THEN ? "CORRECT" ";:BOSU 

B 10000:G0T0 5160 

5090 ? "CORRECT ANSWER IS ";:IF T=N1 T 

HEN ? TFt!TFtN5+Nl,TFtN5+N5) 

5100 IF T=N2 THEN ? C 

5110 IF TON3 THEN 5140 

5120 FOR J=A1 TO Al+N-Nl:? At(JtN38-N3 

7,.]»N38):P0SITI0N N2,PEEK(N84)-N1:IF .] 

<A1+N-N1 THEN ■> "OR "; 

5130 NEXT i 

5140 IF RFONO THEN 5190 

5150 ? ; GOSUB N 10000 

5160 IF S(Q)=NO THEN S(S)=INT!S8»N100+ 

0,5): GOTO 5190 

5170 )(=ABS(S!Q)):XX=ABS!SQ)tN100+0.5:I 

F l>n THEN !(=n 

5180 S(B)=S6NiSS)t]( 

5190 RETURN 

Save score data to disk. 

6000 POKE CRS,N1:? :? :? "NOW RECORDIN 

G SCORE ON DISK": TRAP 6090 

6010 OPEN #N2,9,N0,SFt 

6030 -> »N2;Nt:? IN2;TDt:? »N2;QF:? »N2 

;QL:? »N2;TV:? «N2iTS 

6040 FOR I=N1 TO NlOO:? tN2;Q(I):NEn 

I 

6050 FOR hNl TO NlOO:? tN2;S(I):NEn 

I 

6060 CLOSE IN2 

6070 TRAP N8000 

6080 RETURN 

6090 GOSUB N8100:G0T0 6000 

Read in test data from disk. 

7000 PAF=N0:EF=N0:P0KE CRS,N1:? 

7010 TRAP 7090 

7020 OPEN »N2.N4,N0,QFt 

7040 INPUT #N2;LN:IN.PUT IN2;It:8N=VAL( 

I$(Nl,N3)):AP=VAL(It(N4,6)):.PHt=Iti7) 

7050 IF PtOPWf THEN PWt="":PAF=Nl:60T 

7100 
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7060 FOR I=N1 TO QN; INPUT IN2;lt:QtlIl 

LNiN48-(LN»N48-Nl)) = It:NEn I 

7070 FOR I=Ni TO AP:INPUT #N2;It:AtlI» 

N38-N37)=It:NE)(T I 

7080 FOR I=N1 TO QN:INPUT #N2;It:Ht(It 

N33-N37)=It:NEn I:60T0 7100 

7090 EF=Nl:PWt="":lF PEEK(195)=170 THE 

N -> :? "FILE NOT FOUND" jBELt: GOSUB 811 

0;60T0 7100 

7095 60SUB N8100 

7100 CLOSE «N2: RETURN 

General error-handling routine. 

8000 GOSUB N8ie0:P0KE CRS,N0:? :? "PRO 

GRAM TERMINATED...": TRAP 40000: END 

3100 POKE CRS,N1:? BELt:? "ERROR ";PEE 

K(195);" TRAPPED AT LINE ";PEEK(1B6)+P 

EEKi 187) 1256; BELt 

BI!0 CLOSE #N2:F0R AZ=N1 TO N100tN3:NE 

XT AZ:TRAP N8000: RETURN 

Separate encoded question/response. 

9000 L=LN»N48-N10:T=VAL(It(L+Nl,L+Nl)) 

:y=Nl:IF NOT VFLA6 THEN V=VAL(It(L+N2 

,L+N2)) 

9010 IF T=N1 THEN TF=VALIlt(L+N3,L+N3) 

):GOTO 9030 

9020 Al=yALiIt(L+N3,L+N5)):N=VAL!I»!L+ 

6,L+6)):C=VAL(It(L+7,L+7)) 

9030 X=9-N4» t T=N1 ) : HS=VAL ( 1 1 (L+X-Nl , L+ 

X-N1))»HYNT:IF NOT PFLA6 THEN HP=VAL( 

It(L+X,L+X)) 

9040 It=It!LN*N48-iLNtN48-Nl),(LNtN48) 

-NIO) 

?050 RETURN 

Single key input routine. Enter at line 

10000 for optional pause message. 

10000 POKE CRS.Nl:? "PRESS RETURN TO C 

ONTINUE"; 

10010 GET tNl,A2:RETURN 

Read menu headings and options 

11000 READ It,N:V=PEEK(N84):'' ° "|It 
Display menu heading. 
11010 FOR I=N1 TO N 
Display menu options. 

11020 READ It 

11030 ■ " »;I;». "|!t 

11040 POKE S,N0:P0KE S,N1:P0K.E S,N2 

11050 NEXT I 

Display menu prompt. 

11060 POSITION N2,V:? '=>"; 
11070 GET iNl,IT:IT=!T-N48 
11 080 POKE S, NO: POKE S,N1:P0KE S,N2 
11090 IF IT<N1 OR IT>N THEN 11060 

";:VV=V+IT:PO 

>"! 



11100 POSITION N2,V:? 
SITION N2,VV: 
11110 SET *N1,X 

11120 IF X0155 THEN IT=X-N48:P0SITI0N 
N2,VV:? " ";:G0T0 11080 
11130 POSITION N2,V+N+N2: RETURN 



Set filename extensions. 

15000 gFi=»I):":QF$fN3,N10i=F$;SFI(LEN( 
0F$)+ND=".Q": RETURN 

Set master password. 

16000 h1Pt="PASSt<QRD":RETURN 

30000 DATfi SCQRIN5 FEEDBACK ,4^ SCORE 

QIJESTIQM3 IHMEDIATELY.SCORE k REVIEH A 

^ m 

3G005 DATA GIVE FINAL SCORE ONLY,W!THH 

OLD TEST SCORES 

31 010 DATA QUESTIONS TO ABHINISTER .3 

, ALL, RANDOM SELECTION, RANGE OF NUMBERS 

30020 DATA QUEST I OH VALUES .2,65 ENTE 

RED, ALL THE SAME 

30030 DATA HINT OPTION ,2, AS ENTERED, 

OFF 

30040 DATA HINT PENALTY .2. AS ENTERED 

,SET FIJ.ED PENALTY 



ATARI® 


SWAT TABLE FOR: 


CATS2 




SWAT 




LINES 


CODE 


LENGTH 


1 - 


135 


TY 


552 


137 - 


200 


GQ 


542 


210 - 


1030 


6V 


425 


1040 - 


1150 


n 


373 


1160 - 


20?0 


SA 


413 


20-?5 - 


2200 


XB 


476 


3000 - 


3110 


m 


405 


3120 - 


4060 


SY 


434 


4070 - 


5020 


ZE 


390 


5030 - 


5140 


If! 


365 


5150 - 


6070 


JE 


310 


6080 - 


7095 


HT 


383 


7100 - 


10000 


DS 


505 


10010 - 


11100 


PO 


223 


11110 - 


30040 


UI 


468 
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ATARI BASIC 

'CfiTS2 - TAPE CHANGES' 

AUTHOR: JON R. VOSKUIL 

TRANSL: ALAN J. lETT 

COPYRIGHT (C) 1982 
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DELETE Lines 1080-1160 



135 DIM P$iN10),MP$(N10),PW$(N10),TF$! 

N10),TDt(B),N$(20),SS(20),NAM$(N200+N2 

00) 

155 A$(N1,N1! = " ":At(A»N38)^'' ":A$!N2) 

=A$(NlJ:Q$=A$:Ht=A$:NAMt=A* 

160 VFLA6=N0: PFLAG=NO: HYNT=N1 : M0DE=N1 : 

3I1=N1;S=^RND(N0):SN^N0 

190 FOR I=N! TO N100:e!I) = I:NEn I:SN= 

SN+Nl 

200 TRAP N80O0:P0SITI0N 8,23:BQSUB NIO 

000: IF AZ^155 THEN SOTO NIOOO-NIOO 

220 IP AZ015 AND AZ019 THEN SOTO N20 



330 IF P*=MP$ AND AZ^15 THEN GOSUB 300 


335 IF P$=MP$ AND AZ=19 AND SN>N1 THEN 

60SUB 6000 
900 IF LODED=NO THEN GOSUB N8000-N1000 
910 IF SN>20 THEN GRAPHICS NO:? :? :? 
"20-STUDENT MAHMUM REACHED";BEL»:GOTO 

N200 

1030 TRAP N8000;NAM$(SNJ20-19,3Nt20)=N 
$;NF$=N$i:N1,SP-N1j 
:070 IF Pt=PW$ THEN 2000 
1075 '^ :? ;■;' "INCORRECT PASSWORD" ;BEL$ 
:GOTO N200 

21S0 TS=N0:F0R I=QF TO QL:Q=Q!I):TS=TS 
+S!Q)JIS{Q)>N0):S(8i=N0:NEn I:TS=TS/N 
100:SP=INT(0.5+N100*TS/TV):SS!SN)=SP 
2190 GRAPHICS NO: IF SM<N4 THEN '' :? NF 
-I;", YOUR SCORE IS ".-TS;" OUT OF "iTV; 
T "OR «;SP;" PERCENT" 
2200 GOTO 190 

Substitute the foliowing for lines 
6000-6100 

6000 GRAPHICS N0:P0KE CRS,N1:AV=N0:F0R 
I=N1 TO SN-Nl;AV=Ay+SS(I):NEn 1:AV=I 

f>iT(AV/(SN-Nl)+0.5) 

60! FOR I=N1 TO SN-Nl 

6030 POSITION N2+(!<N10),I-N1:? I;'. " 

;NAM$(n20-!9,I»20); 

6040 L=LENiSTR$(SS(I)!!:POSITION N3B-L 

-N5,I-N1:-? SS(I);" S" 

6050 NEXT I: IF SN>20 THEN SN=N1 

6060 ? :'' CHR$(127);" AVERAGE SCORE 

= "jAV;" r 

6070 I!^ SN=N1 THEN '^ " PRESSING RETURN 
ERASES THESE SCORES " 

6080 RETURN 

6090 REM 

Substitute the following for lines 
7000-7130 

7000 GRAPHICS NOiPOSITION N2,N5;P0KE C 
RS,I«1:'' "POSITION TAPE TO BEGINNING OF 
TEST";' "PRESS PLAY AND HIT RETURN" 
7020 OPEN tN2,N4,N0,"C;° 
7050 !F PtOPWI THEN PiJ$^"":BOTn 7100 
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7030 FOR I=N1 TO QN: INPUT #N2;l$:H$(lt 
N33-N37) = I$:NEn I;L0DED=N1:B0T0 7100 
7090 PN»="" 

DELETE Lines 8000-8010 

Substitute the foliowing for lines 
15000-15030. instead of the ONERR fix, 
these pokes set up the tape read and 
write routines. 

15000 REM 



ATARI® 
CATS2 


SWAT TABLE FOR: 
■ TAPE VERSION 


LINES 


SWAT 
CODE 


LENGTH 


1 - 


135 


NU 


537 


137 - 


190 


FM 


508 


200 - 


1000 


FA 


463 


1005 - 


2015 


LN 


449 


2020 - 


2120 


OW 


380 


2130 - 


3030 


CD 


501 


3040 - 


4000 


AF 


418 


4010 - 


4090 


HL 


438 


4100 - 


5060 


OQ 


388 


5070 - 


5180 


CU 


343 


5190 - 


7010 


ND 


423 


7020 - 


8110 


RE 


437 


9000 - 


11030 


m 


402 


11040 - 


16000 


SB 


244 


30000 - 


30040 


CR 


331 



ss ss ss ss ss ss ss ss ss ss ss 
ss ss 

ss ATARI BASIC SS 

SS 'CflTS3' SS 

SS AUTHOR: JON R. VOSKUIL SS 

SS TRANSL: ALAN J. ZETT SS 

SS COPYRIGHT (C) 1982 SS 

SS SS 

SS SS SS SS SS SS SS SS SS SS SS 

Display title page and initialize program 

100 N0=0:N1=1;N2=2:N3=3:N4=4!N5=5:N7=7 
:N9=9:N10=10:N100=100!CRS=752:OPEN INI 
.Ni.NOj-K/.'iPDKE 82, NO 
110 GRAPHICS NOiPDKE CRS,N1:P0SITI0N 1 
6,N5:'' "C A T S" 

112 POSITION 11, N7:? "by .Jon R. Voskui 
i° 

114 POSITION 8,N9;? "Translation by RB 
i. AJZ" 

120 POSITION N9,15:? " SCORE ANALYSIS M 
ODULE " 
130 DIM Q(N100),S!N100),NAM$(2000),TD« 
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1800!,WR(N100),N(N1001,TS(N100) 

132 Did BEL$(N!),F$!8),SF$fl2),Pt(10), 

MP$llO),It(20),N$(20) 

140 BEL$=CHR$i253);S=5327? 

160 FOR I=N1 TO N100:N!I)=N0:WR(]i=N0: 

NEH liPOSITION N0,21:80SLIB lOOD 

170 GOSUB 3000 

Main options menu 

180 RF=N0:6RAPHICB NO:POKE CRS,N1:P0SI 
TION N0,N5:'' "R)pview sate scores":? : 
? "N)ew scores ^roiri disk":? ;? °D)uit" 
190 GET IN1,)(;!F )(=8: THEN RF=Nl:eOTQ 
160 

200 IF y=78 THEN GRAPHICS NO: GOTO 160 
210 IF \m THEN SOSUB 9000 
220 SOTO 180 

Main line evaiuation routines 

1000 IF RF THEN 1200 

1010 POKE CRS.Nl:'' " Insert score di 

sk and type RETiJRN '':;eET #N1,)!:N=N0:AV 

=N0; HI =N0; L0=N1 00: PF^NO: GOSUB 5000 

1020 TRAP 1190 

1040 ? :-^ "Test Name ";: INPUT F«:GnSUB 

15000 
1050 ? -.-^ "Haster Password: '•,:?%=" 
1060 RET «N1,X:IF )(=155 OR LEN!P$!=N10 

THEN lOSO 

1070 POKE S,N0:POKE S,N1:P0KE S,N2:PR1 
NT M";:P$(LEN(P$)+N1)=CHR$(X):GOTO 10 
60 

1080 GRAPHICS NO: POKE CRS.Nl: POSITION 
N0,N7:? "Reading scores.. .":OPEN #N3,N 
4,N0,BF$ 

1100 INPUT tN3;HP$:IF Mp$<>P» THEN CLO 
SE IN3:'? I'' BEL$; " INVALID PASSWORD" :^ 
:GnsUB 10000:'' :SRAPHICS NO;BOTO 1020 
1102 NA«$!2000) = "l";NfiM$(l,l) = " ":NAt1» 
<2i==NA«f(l):TDI=NA?lt 
1110 N=N+N1 

1130 INPUT »N3;!$:NAH$(Nt20-19,N»20)=I 
$: INPUT IN3;r$:TD$(Nt8-N7,N»8)=I$:INPU 
T #N3;GF: INPUT (tNliSL: INPUT ♦N3iTV 
1140 INPUT #N3fTS;S=INT(:N100tTS/TV+0.5 
):TB(N)=S:AV=AV+S 
1150 IF S>H1 THEN HI=S 
1160 IF S<LO THEN LO=S 
1170 FOR AZ=N1 TO NIOO+NIOO: INPUT »N3; 
!J:NEn ftZ 
1180 GOTO 1110 

1190 CLOSE iN3:? :E=PEEK!195):ERL=PEEK 
(]86)+PEEK (187) «256: TRAP 40000 
1192 IF E=170 THEN ? BEL$;"F!LE '";F$; 
"' NOT ON DISK": GOTO 1020 
1194 IF E0136 THEN "^ BELt; "ERROR ";E; 
° IN LINE •;ERL:RQTO 1020 
1196 N=N-l:AV=INT(AV/N+0.5) 
1200 GRAPHICS NO: GOSUB 5000 



1220 ? IN2i" »;N;" TESTS LO=";LO!" 
•/. HI=";HIi"7. AV=";AV;'r:7 »N2 
1230 ? #N2|" Student D 
ate PCT AEJ":"? IN2;" 



1240 FOR I=N1 TO N 
1250 IF KNIO THEN '^ «N2;" "; 
1252 ■? tN2;I;"-";NfiM»(I»20-19,It20)! 
1260 ■^ iN2;TDt(Ite-N7,II8): 
1270 FOR AZ=1 TO 4-LEN(BTRt!TS(l))):? 
ftN2;" ";:NEn AZ:'' IN2;TS!I); 
1280 IF HI>0 THEN AS=INT!100»TS(1)/HI+ 
0.5):F0R AZ=1 TO 4-LEN(STRt(AS)):? IN2 
;" ";:NEn AZr'^ tN2;fiS; 
12^0 -^ tN2;IF I/18=INT!I/I8) AND PF=NO 
THEN -^ «N2: GOSUB 10000:? #N2:'' IN2 
1300 NEXT I:'' »N2:PF=N0:ID=N0 
1310 POSITION N1,23:P0KE CRS,N1:-^ BEL$ 
;"R)eviBK Dndiv Plrint Oont N)ew Q)u 
it";:60SUB 10010 
1320 IF )(=82 THEN 1200 
1330 IF i=n THEN POSITION NO, 22;? CHR 
$ll56)!CHR$a56);:60SUB 2000 
1340 IF X=73 THEN ? :? :GOTQ 1000 
1350 IF :<=8i THEN BOSUB 9000 
1360 IF XOaO THEN 1390 
1370 PF=N!:IF ID>NO THEN GOSUB 2050:60 
TO 1310 
1380 GOTO 1200 
1390 IF lOkl THEN 1310 
1400 RETURN 

Lines 2000-2160 are tlie routine to review 
scores for an individual student 

2000 POKE CRS.NO:'' "Test Number ";:INP 

UT A: IF A<N1 OR A>N THEN ID=NO:ROTO 21 

60 

2010 OPEN )tN3,N4,N0,SF$ 

2020 FOR AZ=1 TO 2061 !A-1)+1: INPUT IN3 

;I$:NEXT AZ 

2030 GOSUB 4000 

2040 CLOSE IN3 

Print out number of correct/Incorrect 
answers for an individual student 

2050 BOSUB 5000: IF PF THEN 2500 

Screen print version 

2060 GRAPHICS NO:^ A;": ";N$;", ";P$; 
", ";TS(A);"y." 

2070 ■' :7 "Ql SCR S# SCR Qt SCR Ql 
SCR 61 SCR°:'> ' 



2080 FOR I=N1 TO NQ 

2090 C=INT!(I-N1)/20):R=N3+I-20<C 

2100 POSITION Ct8,R:Q=Q!I) 

2110 SS=S!B),'N100;IF Q<N10 THEN "? " " 

2120 -^ 9;" "; 

2125 IF SS>=NO THEN ? "S'pGOTQ 2140 

2130 ? SB; 



2140 NEXT I:? -J 

2150 ID=N! 

2160 PF=N0:P0SITI0N N0,23:RETL1RN 

Printer version of above routine 

2500 -> ♦N2:A;": ";Nt;", ";P$;", ";TS 

(A);"?;" 

2510 ■' »N2:^ #N2;"BI SCR 61 SCR Ql S 

CR B« SCR Bl SCR";? IN2;" -- 

__. ".jzNO 

2520 FOR J=N1 TO NB 

2530 5S=S!8iJ))/N100:IF 8(J)<N10 THEN 

? »N2;' "; 

2540 ? »N2;Q(J);" "; 

2550 IF SS<NO THEN -! »N2;"S ■!:6DT0 2 

565 

2560 ^ IN2;SS;" "; 

2565 IF (SS<=N0 OR SS>=N1) AND K27 TH 

EN?#N2i" "; 

2570 1=1+8: IF I>35 THEN I=N0:? »N2 

2580 NEXT J:"?- IN2;'' »N2 

2590 ID=N1 

2600 PF=N0:G0BU6 5000:P0SITI0N N0,23:R 

ETURN 

Print out total number of correct/incorrect 
answers for all students 

3000 GRAPHICS 0:'' " PERCENT OF WRONG AN 
SWERS, BY QUESTION t ';? "Q# t XW Bl I 
XW Qt » 'iW B# # '>M Q* « :/.W" 
3002 ? " 

":FOKE CRS.Nl 

3010 FOR C=0 TO 4:F0R R=l TO 20:NN=R+2 

OiC:pnsITION Ct8,R+2:G0SUB 16000:NEXT 

R;NEXT C;? :TRAP 3090 

3030 OPEN IN3, N4, NO, SFt- INPUT «N3;«P» 

3040 EF^NO: GOSUB 4000: IF EF THEN 3100 

3050 FOR I=N1 TO NB:B=8(I):WRtB)=WR!B) 

+(S(S)<=0):N(Q)=N(B)+1 

3060 li!=INT(N100*WR!8)/N(8)+0.5):IF H=N 

100 THEN W=W-N1 

3070 C=INT i IQ-Nl ) /20) :R=N2+8-20tC;P0BI 

TION C»e+N2+(.N(B)<Ni0),R:^ N(B);" "j:! 

F W<10 THEN ? " "; 

3072 '' Wi:NEXT hPOSITION NO, 22:? 

3080 GOTO 3040 

3090 CLOSE IN3:TRAP 40000 

3100 POSITION N4,23;'' BEL$!"C)ontinup 

Plrintout Ohjit";:GOSUB 10010 
3110 IF X=80 THEN GOSUB 3500 
3120 IF X=:81 THEN GOSUB "000 
3130 IF X067 THEN 3100 
3140 RETURN 

Print out answer percentages 

3500 GRAPHICS NO: PF=N1: GOSUB 5000 
3510 "> IN2;" 7. OF INCORRECT ANSWERS, B 
V 8UESTI0N »";'' SN2; "================= 
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3520 ' «N2|" QUESTION I I OF TESTS 
I HISSED":? tN2; ■================== 

z=============r==r=»;? tN2 

3530 FOR I=NI TO NlOOilF N(1)=N0 THEN 

3550 

3535 «=INT(N100*WR(I)/NII)+0.5)!? IN2; 

"j:IF KNIO THEN ? IN2;" "| 
3540 -^ #N2;I;" "lilFNdX 

NIO THEN ? IN2;' '; 

3542 ? #N2|N(I!;" "i:IFW<N10 

THEN ? «N2;" "; 
3544 IF W<N100 THEN ? iN2!" "; 
354i ? IN2;H 
3550 NEH I 
3560 ? tN2!PF=N0:e0SUB 5000: RETURN 

Read In test score data from disk 

4000 TRAP 4100 

4020 INPUT »N3;Nt: INPUT tN3;P$: INPUT I 

N3;9F: INPUT IN3|9L 

4030 FOR fiZ=Nl TO QF+Nl: INPUT tN3;I$:N 

EXT A2 

4050 NQ=QL-QF+1:F0R I=N1 TO NQ: INPUT I 

N3;)i.:S(I)=i(:NEn I 

4060 FOR AZ=N1 TO NlOO-fiL: INPUT »N3iI$ 

:NEn flZ 

4080 FOR I=N1 TO N100:INPLIT IN3;1(:S!I) 



=X:NEn I 
4090 SOTO 4110 
4100 CLOSE IN3:EF=N1 
4110 TRAP 40000: RETURN 

Routine to activate printer 

5000 CLOSE IN2:6RAPHICS N0:P0SITI0N N2 

,i 

5010 IF PF THEN POKE CRS.Nl:? "Press R 

ETURN when printer is ready. ":60SUB 10 

010:OPEN tN2,8,N0,"P:":RETURN 

5020 OPEN IN2,S,N0,"E:":RETURN 

Verify that user really wants to quit 

9000 '' CHR$I156)!" Do you want to qu 
if "|:BET INl.hlF )(<>89 THEN ? CHR»( 
156);: RETURN 
9010 BRAPHICS NO: END 

Single-key input routine. Enter at line 
10000 for optional pause message 

10000 ? "Press RETURN to continue" 
10010 POKE 764,255:6ET tNl,!(:RETURN 

Set file name extensions 

15000 SF$="D:":SF$(3)=F»:SFI(LEN(SF$)+ 
N1)='.S':RETURN 



liOOO IF NN=100 THEN NN=0 
16010 I$::STR$(NN):IF NN<10 THEN ^ "0"; 
16020 FOR AZM TO LENII*):? CHR»(ASC(I 
:NEn AZjRETURN 



ATARI® SWAT TABLE FOR: 


CATS3 


SWAT 




LINES 


CODE 


LENGTH 


100 - 160 


JB 


532 


170 - 1060 


ZR 


444 


1070 - 1190 


OL 


557 


1192 - 1280 


FO 


590 


1290 - 1400 


RP 


404 


2000 - 2110 


8.K 


410 


2120 - 2550 


»Q 


334 


2560 - 3050 


UN 


537 


3060 - 3510 


BD 


464 


3520 - 4030 


JJ 


406 


4050 - 1 0000 


UE 


403 


10010 - 16020 


NN 


187 
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ss ss ss ss ss ss ss ss ss ss ss 



ss 
ss 
ss 
ss 
ss 
ss 
ss 



TRS-80 BASIC 

'CATS2 - DISK VERSION' 

AUTHOR! JON R. VOSKUIL 

TRANS: ALAN J. ZETT 

C0PYRI6HT (C) 1982 



SS 
SS 
SS 
SS 
SS 
SS 
SS 



SS SS SS SS SS SS SS SS SS ss SS 



Display title page and initialize program. 

100 CLS 

no PRINT8152,CHR$(23)"C A T S":PR1NT8270,"BY JON R. VOSKUIL" 

120 PRINTJ388, "TRANSLATION BY ALAN J. ZETT":PRINTJ592,"TESTIN6 

MODULE" 

130 CLEARO!DIHQ«(100),A»(300),H«(100),QX(100),SI(100),TF«(2):IFI1 

E«l.9>32767THENCLEAR32767ELSECLEARHEMt.9 

135 A1=0:AP=0:A2=0:C=0:E=0:EF=0:HP=0!HS=0!HY=0:I=0:IT=0:J=0!JJ=0 

!L=0:MO=0:N=0:NQ=0:NU=0!PA=0!PF=0!B=0!Ql=0!Q2=0:QF=0:QL=0!fiN=0:B 

V=0: R=0: RF=0! SH=0: SP=0: 80=0: T=0! TF=0: TS=0: TV=0: V=0! VF=0! VH»0: VV= 

0:)(=0!XX=0:XXZ=0:Z=0 

140 A$="":B*=""!C$="":F*=""iMP»=""!N$="":NF*=""!P$="":PH»="":B$= 

"":QF«="'!SF$="":TD*=""!U$="":X«=""!DIMQ«(100),At(300),H$!100),Q 

X(100),SX(100),TF*(2) 

145 IFPEEK (293) =73THENPRINTCHR$ (21 ) ; : U$=CHR$ (244) +CHR» (245) +CHR$ 

(246)ELSEU*="=>" 

150 TF$(0)="FALSE"!TF»(l)="TRUE"!B1i=CHR»(8):BOSUB15000 

160 VFLA6=0: PFLAB=0: HYNT=1 : H0DE=1 : SM=1 : RANDOM: ONERRORGOT08000 

170 PRINTJ776, "TODAY'S DATE HH/DD/YY":PRINT8802,;:INPUTTD* 

180 IFLEN(TD«)<>80RMID$(TD$,3,1)<>"/"0RMID$(TD$,6,1)<>"/"THEN170 



190 F0RI=lT0100:Qy.(I)=I:SX(I)=0:NEXT 

At this point, the user may hit CTRL-Q to quit, CTRL-S 
to set test options, or RETURN to go on. User must 
know master password to set options. 

200 PRINT9966,i!GOSUB10000!X=ASC(X$):IFX=13THEN1000 

210 IFX=17THENCLEAR50!CLS!PRINTCHR$(21)i:END 

220 IFXO15THEN200 

300 CLS:PRINT8512, "MASTER PASSWORD! ";:?♦="" 

310 60SUB10010iIFX»=CHR*(13)THEN330 

320 PRINT"*"; :P$=P*+X1:B0T0310 

330 IFP*=MP*THENBOSUB3000 

340 GOTD200 

Entry section of routine to administer test. Get stu- 
dent's name, test name, and password. 

1000 CLS:PRINT3128, "PLEASE TYPE YOUR NAME (FIRST AND LAST), AND 

PRESS <ENTER>"iPRlNT:INPUTN«iL=LEN(N$)!lFL=0THEN1000 

1010 SP=0!F0RI=LT01STEP-l:C«=MID$(N«,I,l)!lFC$=" "THENSP=1 

1020 NEXTI:IFSP=00RSP=LTHEN10O0 

1030 NF»=LEFT$(N«,SP-1)!PRINT:INPUT"TEST NAME "!F»:BF$=F*+"/B" 

1040 PRINT!PRINT"PASSWORD! ';:?%=" 

1050 G0SUB10010!lFX$=CHR$(13)THEN1070 

1060 PRINT"»"i!p$=P$+X$:60T01050 

1070 PRINT!PRINTiPRINT"INSERT TEST DISK AND PRESS <ENTER>"!BOSUB 

10010!BOSUB7000iIFPAFTHENPRINT"==== INCORRECT PASSMORD ====°!8QT 

0200 

1080 IFEFTHEN200 

1090 SF$=F*+"/S"!0NERRORBOTD1110 

1100 0PEN"I",1,SF$:60T01160 

1110 CL0SE!E=ERR/2-l! IFEO52THEMRESUME8000ELSERESUHE1120 

1120 OPEN-O'il.SF* 

1140 PRINTIl.MP* 

1160 CLOSE: ONERRORBOTOBOOO 



Main routine to administer test. 
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2000 CLS:QF=1:BL=QN:NQ=QN: IFH0DEO2THEN2030 

2010 FORJ=1T03:FORI=1TONQ:R=RND<NQ)!T=6X(I);BX(I)=BX(R) :BX(R)=T 

: NEXT: NEXT: NQ=NUH: IFNQ>QNTHENNe=QN 

2020 BL=NB 

2030 IFH0DEO3THEN2070 

2040 BL=Q2: IFQL>QNTHENQL=QN 

2050 BF=Q1:IFBF>BLTHENQF=BL 

2060 NB=BL-BF+1 

2070 TV=NQ: IFVFL AB=OTHENTV=0: FORI=BFTOQL! B=B): ( I ) : TV=TV+VftL (HID$ ( 

B«(Q),2,1)):NEXT 

2080 FORI=QFTOBL:Q=BX(I):GOSUB4000:BOSUB5000:NEXTI 

2090 CLS;PRINTS512, "PRESS 'R' TO REVIEN SKIPPED QUESTIONS, OR 'E 

' TO END THE TEST."!G0SUB10010:IFX$='E"TH£N2130 

2100 IFX$<>"R"THEN2090 

2110 FORI=BFTOQL:B=BX(I)!lFSX(B)<OTHENSOSUB4000:GOSUB5000 

2120 NEXTl!60T02090 

2130 IFSNO2THEN21B0 

2140 RF=l:F0RI=flFT0flL:B=8I(I):60SUB4000 

2150 IFSX(Q)>OTHENPRINT"YOU SCORED"SX(Q)/100"FOR YOUR CORRECT AN 

SNER":60T02170 

2160 PRINT'YOUR ANSNER NAS INCORRECT; ";B0SUB5090 

2170 PRINTi60SUB10000:NEXTI:RF=0 

2180 TS=0:F0RI=QFT0BL:B=B5i(I):TS=TS-SHB)»(SX(B)>0):NEXT!TS=TS/l 

00 

2190 CLS!lFSH<4THENPRINT:PRINTNF«", YOUR SCORE IS'TS'OUT OF'TV'O 

R' INT 1 . 5tl00»TS/TV) "PERCENT" : IFTS=TVTHENC$=STRINB$ (2, 191 ): PRINT J 

256,C$STRING$(43,143)C*;PRINTC*" EXCELLENT! YOU HAVE HADE A PERF 

ECT SCORE! •C*:PRINTSTRIN6*(47,143) 

2200 60SUB6000!PRINT:PR1NTjBOT0190 

Routine to allow teacher to choose number of ques- 
tions to be adnninistered and to reset test options if 
desired. 

3000 CLS:REST0RE:V=0:60SUB11000:SH=IT 

3010 V=6:G0SUB11000:H0DE=IT:IFH0DE=1THEN3080 

3020 IFH0DE=3THEN3050 

3030 PRINT8e96, "HOH MANY";:INPUTX$iNUH=VAL(X«):IFNUH<lTHEN3030EL 

SEPRINT»537,"0F"NUH; 

3040 60T03070 

3050 PRINT8896,"FR0H"i:INPUTX$:Bl=VAL(X$);IFBl<lTHEN3050 

3060 PRINTJ906, "TO" j : INPUTX$:82=VAL (X$) : IFB2< 10RB2<B1THEN3060ELS 

EPRINT8584, CHR* (31 ) "BUESTI0NS"81 "T0"B2; 

3070 PRINT8B96,CHR$(31); 

3080 V=6.55:60SUB11000:VFLAG=IT-1 

3090 V=ll!G0SUB11000:HYNT=2-lT:IFHYNT=0THEH3120 

3100 VM1.55:60SUB11000:PFLAG=0!lFIT=lTHEN3120 

3110 PFLAG=1:PRINT3960,"10THS? (0-9)"i:GOSUB10010:IFX»<"0"ORX$>" 

9"THEN3110ELSEHP=VAL(X«):PRINTaB74,CHR$l31)HP"/ lOTHS"; 

3120 PRINTJ960,"ALL OK?";:GOSUB10010:IFX»="N"THEN3000 

3130 IFX«<>"Y"THEN3120 

3140 PR1NT3960,CHR$(31);:RETURN 

Routine to administer an individual test question. 

4000 CLS:Q$=B«(B):60SUB9000 

4010 PRINT"N0."I-QF+1;"0F"NB" VAL ="V"0F"TV" ";:IFHSTHENVH=I 

NT(10m(10-HP)+.5)/100!PRINT"("VH"M/HINT )":60T04030 

4020 PRINT" ( NO HINT )" 

4030 PRINT:PRINTB*:PRINT:IFT=1THENPRINT"TRUE OR FALSE? ":PRINT 

4040 IFTO2THEN4070 

4050 F0RJ=1T0N:JJ=A1+J-1:PRINTJ"- •A$(JJ):IFPEEK(16417)>62THEHPR 

INT°?"):60SUB10010:PRINTB*" "B*; 

4060 NEXT: PRINT 



4070 8V=V:IFRFTHEN4140ELSEPRINT 

4080 PR1NTCHR$(27)):A$=":INPUT"ANSNER (S TO SKIP) ";A$:IFA$<>"H 

"THEN4110 

4090 PRINT:IFHSTHENBV=VHiPRINTH*(8)!PRINT:S0T04080 

4100 PRINT'NO HINT AVAILABLE":PR1NT:60T040BO 

4110 IFA$="S"0RA*=""THEN4140 

4120 IFT=2THENX=VAL(A$) : IFX<10RX>NTHEN4080 

4130 IFT=lTHENA«=LEFT$(A$,l):IFA$<>"T"AHDAt<>"F"THEN4080 

4140 RETURN 

Routine to score the response to an individual ques- 
tion. 

5000 SB=0:IFA»="S'ORA*='"THENSB=-BV:60T05160 

5010 IFT=1AHD((A*="T"ANDTF)0R(A«="F"ANDTF=0))THENSB=BV 

5020 IFT=2ANDX=CTHENSB=BV 

5030 IFTO3THEN5070 

5040 FORJ=fllTOAl+N-l:L=LEN(A»(J)):IFC>OANDC<»LTHENL=C 

5050 IFLEFT$(A«(J),L)=LEFT«(A$,L)THENSB=BV 

5060 NEXTJ 

5070 IFSNO1THEN5160 

5080 PRINT: IFSBTHENPRINT"CORRECT":FORZ=1T0400:NEXTZ:60T05160 

5090 PRINT'CORRECT ANSWER IS ";:IFT=1THENPRINTTF»(TF) 

5100 IFT=2THENPRINTB»C 

5110 IFTO3THEN5140 

5120 FORJ=A1TOA1+N-1:PRINTA»(J):IFJ<A1+N-1THENPRINT"OR "; 

5130 NEXTJ:PRINT 

5140 IFRFTHEN5190 

5150 PRINT: BOSUBIOOOO 

5160 IFSX(Q)=OTHENSX(B)=SBtlOO+.5:BOT05190 

5170 XX=ABS(SX(B)):XXX=ABS(S8)»100+.5:IFXI>XXXTHEHXX=XXX 

5180 S/1(B)=S6N(SB)»XX 

5190 RETURN 

Save score data to disk. 

6000 PRINT:PRINT:PRINT"NOH RECORDINB SCORE ON DISK":0NERR0RB0T06 

090 

6010 0PEN"E",1,SF» 

6030 PRINTIl,N»:PRINTIl,TD*:PRINT#l,eF:PRINTIl.BLiPRINT«l,TV:PRI 

NTIIJS 

6040 F0RI=1T0100:PRINTI1,BX(I) ;NEXT 

6050 F0RI=1T0100:PRINTI1,SX(I):NEXT 

6060 CLOSE 

6070 ONERRORBOT08000 

6080 RETURN 

6090 CLOSE: 60SUBB100 

6100 PRIHT:60SUB10000:60T06000 

Read in test data from disk. 

7000 PAF=0:EF=0:PRINT 
7010 0NERR0RB0T07090 
7020 0PEN"I",1,BF* 

7040 INPUTI1,B$(0):BN=VAL(HID$(Q$(0),4,3)):AP=VAL(LEFT«(6$(0),3) 
):PH*=RIBHT$(8*(0),LEN(Q$(0))-6) 
7050 IFP$< >PII$THENPH«=" " : PAF=1 : 60T07120 
7060 F0R1=1T06N:INPUTI1,B$(I):NEXTI 
7070 F0RI=1T0AP:INPUT#1,A»(I):NEXTI 
7080 F0RI=1T0QN:INPUTI1,H»(I):NEXTI:B0T07120 
7090 EF=l:PH$=""!E=ERR/2-l:IFE=52THENPRINT"FILE "H" IS NOT ON 
THIS DISK":RESUME7120ELSERESUHE7100 
7100 60SUB8100 
7120 CLOSE: 0NERRORG0TO8OO0 
7130 RETURN 
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General error-handling routine. 

BOOO GOSUBSlOOiPRINTiPRINT'PROBRflM TER«INflTED...'CHR*(21) jEND 
BlOO E=ERR/2-l: PRINT: PRINT'==== ERROR"E"IN LINE"ERL"===="!CLOSE: 
FORA2=1T01300:HEXT:ONERROR60T08000:RETURN 

Separate encoded question/response. 

?000 T=VftL(LEFT$(Q«, 1 ) ) :V=1: IFVFLA6=0THENV=VAL(NID$(Q«,2, 1) ) 

9010 IFT=lTHENTF=VflL(HID»(Q*,3,l)):60T09030 

9020 Al=VAL(«ID$IQ$,3,3)):N=VflL(MID«!Q$,6,l));C=VAL(HID»(Q$,7,l) 

) 

9030 X=9+4» IT=1 ) : HS=VAL (HID$ (Qt. X-1 . 1 ) ) »HYNT: IFPFLAS=OTHENHP=VAL 

(MIDKQJ.X,!)) 

9040 Q*=RIGHT«(Q«,LEN(Q»)-X) 

9050 RETURN 

Single key input routine. Enter at line 10000 for op- 
tional pause message. 

10000 PRINT-PRESS <ENTER> TO CONTINUE"; 
10010 X$=INKEY$: IFX«="THEN10010ELSERETURN 

Read menu headings and options 

11000 READN$:READN:F0RI=1T0N:READN$(I):NEXT 

Display menu heading. 

11010 PRINT8V»64+4,CHR»(143)" "HV "CHRtlHS); 
Display menu options. 

11020 FOR1=1TON 

11030 PRINT9(V+I)«A4+3,r- "Ntd); 

11050 NEXT 

Display menu prompt. 

11060 PRINT3V»44,U$; 

11070 60SUB10010:IT=VAL(X$) 

11090 IFIT<10RIT>NTHEN11060 

11100 PRINTJV«64,' ";!VV=V+IT:PRINTJVVt64,U$; 

11110 80SUB10010!X=ASC(X*) 

11120 IFU>13THENIT=VAL(X«):PRINTJVV»64,' ';:B0T011090 

11130 PRINTS (V+N+2),i: RETURN 

Set master password. 

15000 HP$="PASSHORD": RETURN 

IVIenu data 

50000 DATA TEST SCORING FEEDBACK, 4, SCORE IHMEDIATELY.SCORE i REV 

lEW AT END,6IVE FINAL SCORE ONLY, WITHHOLD TEST SCORES 

50010 DATA QUESTIONS TO ADMINISTER, 3, ALL QUESTI0NS,RANDOM SELECT 

ION, RANGE OF NUNBERS 

50020 DATA QUESTION VALUES, 2, AS ENTERED, ALL THE SANE 

50030 DATA HINT OPTION, 2, AS ENTERED, TURNED OFF 

50040 DATA HINT PENALTY, 2, AS ENTERED,SET FIXED PENALTY 



TRS-80® SWAT TABLE FOR 




CATS2 - 


DISK VERSION 




LINES SWAT CODE 


LENGTH 


100 


- 140 


JE 


563 


145 


- 320 


PL 


451 


330 


- 1090 


EN 


456 


1100 


- 2060 


YS 


302 


2070 


- 2180 


DP 


507 


2190 ■ 


■ 3080 


PN 


515 


3090 


- 4050 


TC 


513 


4060 - 


• 5020 


GS 


351 


5030 


- 5140 


RX 


283 


5150 - 


■ 6070 


OX 


298 


6080 


- 7090 


SQ 


346 


7100 - 


• 10000 


NH 


395 


10010 


- 11120 


PI 


288 


11130 - 


50040 


HY 


373 



SS SS SS SS SS SS SS SS SS SS SS 
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TRS-80 BASIC 

'CATS2 - TAPE CHANGES' 

AUTHOR: JON R. VOSKUIL 

TRANS: ALAN J. ZETT 

COPYRIGHT (C) 1982 



SS 
SS 
SS 
SS 
SS 
SS 
SS 



SS SS SS SS SS SS SS SS SS SS SS 
These are the changes to be made in CATS2 in order 
to use it with tape. 
DELETE Lines 1080-1160 
Change or add lines as follows. 

130 CLEAR0:DIMQ*(100),A»(300),H»(100),QX(100),SX(100),TF«(2),NflN 
$(20) ,SSn20) : IFHEMt.9>32767THENCLEAR32767ELSECLEARNEH«.9 
140 A*=""!B*="":C«=":F$="':HP«=":N$="":NF«=":P«='";PM=":Q$= 
"■:QF$="";SF$="":TD$=*":U$=":X$="";DI«Q*(100),A$(300),H$(100),Q 
X(100),SX(100),TF$(2),NAI1$(20),SSX(20) 

160 VFLAG=0: PFLAB=0: HYNT=1 : N0DE=1 : SH=1 : SN=0! RANDOH: 0NERR0R60T080 
00 

190 FORI=1T0100:QX(I)=I:NEXT:SN=SN+1 
200 PRINT3966, ; : GOSUBIOOOO: X=ASC ( X«) : IFX=13THEN900 
220 IFXO15ANDXO19THEN200 
330 IFP$=t1P*ANDX=15THENGOSUB3000 
335 IFP$=NP$ANDX=19ANDSN>1THENBOSUB6000 
900 IFLODED=OTHENGOSUB7000 

910 IFSN>20THENCLS:PRINT8192,"20-STUDENT HAXIMUH REACHED ":60T020 


1000 CLS:PRINT812B, "PLEASE TYPE YOUR NAME (FIRST AND LAST), AND 
PRESS <ENTER>":PRINT:1NPUTN$:N$=LEFT»(N$,20):L=LEN(N«):IFL=0T(€N 
1000 

1030 NAI1$(SN)=N«:NF*=LEFT*(N«,SP-1) 

1070 IFP$<>PM»THENPRINT!PRINT"~== INCORRECT PASSWORD ==«=":GOTO 
200 

2180 TS=0:F0RI=QFT0QL:a=Q7.(I):TS=TS-SX(Q)»lSl(Q)>0)!SX(Q)=0:MEXT 
:TS=TS/100:SP=INT(.5+100«TS/TV)jSSX(SN)=SP 
2190 CLS:IFS«<4THENPRINT:PRINTNF$", YOUR SCORE IS"TS"0UT OF'TVO 
R"SP"PERCENT":IFTS=TVTHENC«=STRIN6$(2,191):PRINT8256,C«STRIN6«(4 
3,143)C»:PRINTCt" EXCELLENT! YOU HAVE MADE A PERFECT SCORE! "C«: 
PRINTSTRING$(47,143) 
2200 60T0190 

Substitute the following for lines 6000-6100. Instead 
of saving the scores to disk for later analysis, this 
routine displays them on the screen. 
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6000 CLS 

6010 AV=0iF0RI=lT0SN-l!flV=AV+SSll(I)!NEXT:AV=INT(AV/(SN-l)+.5) 

6030 FDRI=JTOSN-J;IFI<llTHENPRINTJIt64,i 

6040 IFI >10THENPRINT»(I-10) 164+34, ! 

6050 L=LEN(STR«(SSX(I))):QF»=RI6HT«(STR«(I),2)+'. •+HA««(I) 

6060 QF$=QF»+" •+STRING$(27-L-LEN(QF«),45)+STR«(SSX(I))+"X" 

6070 PRINT8F$;:NEn;IFSN>20THEMSN=l 

60S0 PR1NT876B, "AVERAGE SCORE ="AV"X' 

6090 IFSN=1THENPRINT' » PRESSING <ENTER> ERASES THESE SCORES f 

6100 QF$="": RETURN 

Substitute the following for lines 7000-7130 

7000 CLS:LO=0 

7010 PR1NTS256, "POSITION TAPE TO BEGINNING TO TEST DATA":1(=FRE(0 

)!PRINT"THEN PRESS <EHTER> TO START LOADING.. .":60SUB10010 

7020 PRINT8512, "LOADING..." 

7040 INPUTi-l,Q*(0):QN=VAL(l1ID«(B$(0),4,3)):AP=VAL<LEFT«(Q«(0),3 

));PN$=RI6HT$(Q$(0),LEN(Q$(0))-6) 

7050 PRINTJ512, "LOADING CONFIRHED..." 

7060 FORI=lT09N:INPUTI-l,9*(n:60SUB7090:NEl(T 

7070 FORI=1TOAP:1NPUTI-1,A$(I):60SUB7090!NEXT 

7080 FORI=1TOQN:INPUTI-1,H*(I):GOSUB7090:NEXT:LODED=1:FORX=1T050 

0:NEXT:RETURN 

7090 PRlNTa512,CHR$!31) "LOADING ";:IFI=flNORI=APTHENLO=LO+l:PRINT 

■COHPLETED FOR SECTI0N"L0"0F"3-(8N<AP)":G0T07130 

7100 IFI/2<>INT(I/2)THENPRINT"»":60T07130 

7120 PRINT"* • 

7130 RETURN 



TRS-80® SWAT TABLE FOR 




CATS2 ■ 


TAPE VERSION 




LINES 


SWAT CODE 


LENGTH 


100 


- 140 


AU 


597 


145 


- 320 


HB 


461 


330 


- 1060 


YH 


417 


1070 • 


- 2100 


NJ 


474 


2110 


- 2200 


NX 


502 


3000 • 


- 3110 


V6 


491 


3120 


- 4080 


CJ 


428 


4090 ■ 


- 5050 


LI 


351 


5060 


- 5170 


m 


292 


5180 ■ 


■ 6100 


GZ 


359 


7000 


- 7130 


HP 


505 


8000 ■ 


- 11010 


FD 


452 


11020 


- 50000 


QG 


354 


50010 ■ 


■ 50040 


NN 


220 



SB SS SS SS SS SS SS SS SS SS SS 
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TRS-80 BASIC 

'CATS3' 

AUTHOR: JON R. VOSKUIL 

TRANS: ALAN J. ZETT 

COPYRIGHT (C) 1982 



SS 
SS 
SS 
SS 
SS 
SS 
SS 



SS SS SS SS SS SS SS SS SS SS SS 

Display title page and initialize program 

100 CLS 

110 PRINT»152,CHR$(23)"C A T S":PRINTa270,"BY JON R. VOSKUIL" 
120 PRINT8388, "TRANSLATION BY ALAN J. ZETT" :PRINTS650, "SCORE ANA 
LYSIS NODULE" 



130 CLEARO:DinGX(100),S2(100),NAH$(100),TD$(100),HR!UOO>,N2(100 

) , TSX ( 1 00 ) : IFHEHt . 9>32767THENCLEAR32767ELSECLEARHEH» . 9 

140 DIHBX(100),SX(100),NAN$(100),TD«(100),«RX(100),NX(100),TS5!(1 

00) 

150 LP$=STR1NG$(55,32):GOSUB16000 

160 PRINT8896,i;FORI=lT0100:NZ(I)=0:NRX(I)=OiNEXT;GOSUB1000 

170 80SUB3000 

Main options menu 

180 RF=0:CLS:PRINT8256,"R)EVIEN THE SANE SCORES"!PRINT:PRIHT"M)E 

N SCORES FROH DISr:PRINT!PRINT"Q)UIT':80SUB10010 

190 IFX»="R'THENRF=1:G0T0160 

200 IFX$="N"THENCLS:G0T0160 

210 IFX$="B"THEN60SUB9000 

220 GOTO 180 

Main line evaluation routines 

1000 IFRFTHEN1200 

1010 PRINT"INSERT TEST DISK, PRESS <ENTER>" 

1015 60SUB10010!lFXt<>CHR$(13)THEN1015ELSEN=0!AV=0:HI=0:L0=0:PF= 

0:G0SUB17000:PF=USR(PF):CLS 

1020 0NERROR60T01190 

1040 PRINT3256,"FILE NAHE "i:INPUTF$:SF«=F*+"/S" 

1050 PRINT:PRINT"HASTER PASSWORD •;:P$="" 

1060 60SUB10010:IFX*=CHRt(13)THEN1080 

1070 PRINT"»";:P$=P«+X$:60T01060 

1080 CLS: PRINTS256, "READING SCORES...": OPEN" I", l.SF* 

1100 INPUTI1,HP»:IF«P$<>P«THENCL0SE:PRINT>PRINT"=>=== INVALID PAS 

SNORD ====":PRINT:GOSUB10000:CLS:GOT01040 

1110 N=N+1 

1130 INPUTil,NAI1$(N),TD«(N),BF,QL,TV,TS 

1140 SX=100tTS/TV+.5:TSX(N)=SX:AV=AV+SX 

1150 IFSX>HITHENHI=SX 

1160 1FSX<L0THENL0=SI 

1170 FORRP= 1 T0200: INPUTt 1 , RP$ : NEXT 

1180 BOTOlllO 

1190 CL0SE:E=ERR/2-l:IFE=61THENN=N-l:AV=INT(AV/N+.5):RESUHE1200E 

LSECLS:IFE=52THEHPRINTJ128,"FILE "F$"' NOT ON THIS DISK":RESUNE 

1040ELSEPRINT3128, "ERROR"E"IN L I NE"ERL: RESUME 1040 

1200 ONERROR60TOO:CLS: IFPFTHEN80SUB5000 

1220 PRINTH'TESTS LO ="LO"X HI ="HrX AV ="AV"X": PRINT" 



1230 PRINTTAB(8)"STUDENT 



DATE PCT (ADJ)":PRINT" 



1240 FORI=1TON 

1250 PRINTRI6HT«(STR»(I),2)". "NAN*!!); 

1260 PRINTTAB(22)TD$(I)) 

1270 S$=STR*(TSX(I)):PR1NTTAB(34-LEN(S«))S$; 

1280 IFHI>0THENASX=100»TSX(I)/HI+.5:S$=RI6HT«(STR«(ASI),3):PRINT 

TAB(35)'("STRING*(3-LEN(S$),32)S»")"; 

1290 PRINT" ■:IFI/10=INT(I/10)ANDPF=OTHENPRINT:GOSUB10000:PRINT8 

256,CHR$(31)) 

1300 NEXT:PRiNT" ":ID=0:PF=0:GOSUB17000!PF=USR(PF) 

1310 PRINT»960,"R)EVIEN DNDIV P)RINT OONT N)EN Q)UIT"ii60SUB10 

010 

1320 IFXt="R"THEN1200 

1330 IFX$='I"THENGOSUB15000:60SUB2000 

1340 IFX*="N"THENCLS:PRINT8256,i:G0T01OO0 

1350 IFXt=»B"THENGQSUB9000 

1360 1FX«<>"P"THEN1390 

1370 PF=1:IFIDTHENG0SUB2050:G0T01310 

1380 BOT01200 

1390 IFX$<>'C"THEN1310 

1400 RETURN 
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Lines 2000-2160 are the routine to review scores for an 
individual student 

2000 PFINTJ896, CHfi$ (31 ) "TEST NUMBER" .• i INPUT)!! IFK 10RX>NTHENID=0: 

60702160 

2010 OPEN'r,l,SF$ 

2020 F0RRP=lT0206»(X-l)+l!lNPUTIl,RP$iNEXT 

2030 80SUB4000 

2040 CLOSE 

Print out number of correct/incorrect answers for an 
individual student 

2050 CLSi IFPFTHEN60SUB5000:GOT02500 
Screen print version 
2070 PRINT'Qt SCR Qt SCR Ql SCR Qt SCR 
R Qi SCR": PRINT" - 



ei SCR Ql SCR Qt SC 



2080 F0RI=1T0NQ 

2090 C=IMT((I-l)/13)!R=3+I-13tC 

2100 PRINT8((R-2)»64)+C«8,i:fl=QX(I) 

2110 SS=SX(Q)/100:PRINTRI6HTt(STR$(QX(I)),2)STRIN6$(-(SS<lAND 

SS>0),32); 

2120 iFSS>=OTHENPRINTSS.i:GOT02140 

2130 PRINT'S"; 

2140 NEXT!PRINT:PRINT 

2150 ID=1 

2160 PF=0: 60SUB1 7000: PF=USR (PF) : PRINTa960, ; i RETURN 

Line Printer version of above routine. 

2500 PR«="":PRINTX": "N$TAB(26)TD$TAB(36)TSI(X)"X"!PRINT" " 

2510 PRINT'Qt SCR Qt SCR Ql SCR Ql SCR Ql SCR Qt SCR Qt SC 

R Qt SCR Ql SCR Ql SCR"!PRINT"- - 

■ 

2520 F0RJ=1T0NQ 

2530 SS=SX(QX(J))/100:IFSS<0THENSS$=' S":B0T02550 

2540 SS*=" "+STR«(SS)!SS$=RIGHT$(SS$,4) 

2550 Q$=" "+STR»(QZ(J))!Q«=RI6HT»(Q$,2) 

2560 PR$=PR$+Q$+SS*+" ": IFLEN(PR*)>75THENPRINTPRtiPR$="' 

2570 NEXT:PRINTPRt 

2580 PF=0:6DSUB17000:PF=USR(PF):ID=1:PRINT8960,;:RETURN 

Print out total number of correct/incorrect answers for 
all students 

3000 CLS: PRINT'Qt t )(» Ql I m Ql I XH Qt I !M Ql I %ll Ql I 1M Q 
t I XH Ql I XH": PRINT" 



3010 FORC=OT07:FORR=lT013:NN=R+13tC!lFNN<101THENN$=RI6HT$(STR$(N 

N),2):PRINTS((R+l)»64)+Ct8,N$; 

3015 NEXT:NEXT!0NERR0RG0T03090 

3030 0PEN'I",1,SF$:INPUTI1,HP$ 

3040 EF=0:G0SUB4000:IFEFTHEN3100 

3050 FORI=lTQNQ:Q=QX(I):NR)i(Q)=NRI(e)-(SX(Q)<=0):NX(Q)=NI(Q)+l 

3060 »ir.=INT(100«HRX(Q)/NX(Q)+.5):IFHX=100THENWX=99 

3070 C=INT((Q-l)/13)!R=Q-13tC+3:PRINTJ((R-2)t64l+C«8+2,RIGHT$(ST 

R»(NX(Q)),2)" "RIGHT»(STR»(WX),2)!:NEXT;PRINT»896,i 

3080 G0T03040 

3090 CL0SE:RESUNE31OO 

3100 0NERR0RG0T00:PRINT9960,"C)0NTINUE P)RINTOUT Q)UIT";:B 

OSUBIOOIO 

3110 1FX$="P"THENG0SUB3500 

3120 IFX$="Q'THEN60SUB9000 

3130 IFX*<>"C"THEN3100 

3140 RETURN 



Print out answer percentages 



3500 CLS!G0SUB5000 

3510 PRINT'X OF INCORRECT ANSWERS, BY QUESTION f!PRINT"====«== 

3520 PRINT" QUESTION I I OF TESTS X HISSED'sPRINT' 



3530 F0RI=lT0100:IFNX(I)>0THENHX=INT(l00»tiRX(I)/NX(I)+.5)!PRINTT 

AB(7-(I<10))ITAB(21-(NXn)<10))NX(I)TAB(34-(((X<]0))HZ 

3540 NEXT: PRINT: PF=0: GOSUB17000; PF=USR (PF) : RETURN 

Read in test score data from disk 

4000 ONERROR60T04100 

4020 INPUTtl,N$,TD*,QF,QL 

4030 FORRP=lTOQF+l:INPUTtl,RP$:NEXT 

4050 NQ=QL-QF+1:F0RI=1T0NQ:INPUTI1,QX(I)!NEXT 

4060 F0RRP=1T0100-QL:INPUTI1,RP$:NEXT 

4080 FGRI=lTG100:INPUTtl,SX(I):NEXT 

4090 60T04110 

4100 CLOSE: EF=l!RESUHE41 10 

4 MO ONERRORGOTOO: RETURN 

Routine to activate printer 

5000 PRINT3256, "PRESS <ENTER> HHEN THE PRINTER IS READY... •:GOSU 
B10010:CLS:GOSUB17000:PF=1:60SUB17000:PF=USR(PF):RETURN 

Verify that user really wants to quit 

9000 GOSUB15000:PRINT"DO YOU HANT TO QUIT? "i:60SUB10010!lFX$<>" 
Y"THENS0SUB15000:RETURN 
9010 CLS: END 

Single-key input routine. Enter at line 10000 for op- 
tional pause message 
10000 PRINT"PRESS <ENTER> TO CONTINUE"; 
10010 X$=INKEY$:IFX$=""THEN10010ELSERETURN 
Clear bottom line of screen. 
15000 PRINT3960,CHR«(31);:RETURN 

Poke PRINT to LPRINT conversion routine into a 
previously defined string. 

16000 GOSUB17000:AX=A:NX=0:HEX«='0123456789ABCDEF":FORXX=1T03:RE 

?DD$:FORYX=1TOLEN(D»)STEP2:VX=0:FORZX=OT01:VX=VX+(INSTR(HEX$.HID 

$(D$,YX+ZX,1) )-!)»( (l-ZX)«15+l):NEXT:P0KEAX+HX,VXiHX=NX+l:NEXT:N 

EXT:RETURN 

Hexadecimal data for conversion routine. 

16010 DATA CD7F0A7DE6014F2AA440E5E17CB5C85E2356D52323237EB728F1 
16020 DATA 4779B7782804FEB21802FEAF20ED4779B77828043EAF18023EB2 
16030 DATA 7718DE 

Re-establish location of machine language 
subroutine in case string-gathering has moved it. 
1 7000 A=VARPTR ( LP$ ) : A=PEEK ( A+ 1) +PEEK ( A+2) »256: A=A<-65536« ( A>32767 
):DEFUSR=A: RETURN 



TRS-80® SWAT TABLE FOR: 


CATS3 




SWAT 




LINES 


CODE 


LENGTH 


100 - 


210 


JH 


515 


220 - 


1110 


HS 


392 


1130 - 


1250 


LY 


476 


1260 - 


1370 


J6 


400 


1380 - 


2090 


KA 


349 


2100 - 


2540 


VF 


471 


2550 - 


3060 


PR 


508 


3070 - 


3530 


lY 


515 


3540 - 


8000 


¥6 


314 


9000 - 


17000 


EU 


495 



cs 
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Follow these procedures unless otherwise 
instructed by the documentation in the 
magazine. Back issues may differ in some 
details. 

5Pf/ir TABLES 

At the conclusion of each line listing of a 
SoftSide program, we include a SWAT 
{Strategic Weapon Against Typos) Table. 
SWAT w^diS, publis^ied in issue #30 of Soft- 
Side and is available as a free reprint. Please 
send a self-addressed, stamped envelope to 
SoftSide Pubhcations, Inc., Dept. SWAT, 
6 South Street, Milford, NH 03055. 

APPLETM 

Disks are in 13-sector format, created 
under DOS 3.2.1. If your system is set up 
for 16-sector disks (DOS 3.3), first boot 
your BASICS disk or BRUN BOOT 13 from 
the System Master Diskette, then insert the 
SoftSide disk. A cover/menu program will 
run automatically. 

Tapes LOAD in the normal manner. Ad- 
vance the tape to the beginning of the lead- 
in tone; stop the tape; insert the plug into 
the EAR jack; type LOAD; start the tape; 
and press RETURN. Side two of the tape is 
a duplicate of side one, unless one or more 
Integer BASIC programs are included, in 
which case side two contains the Integer 
programs. 

ATARI® 

Line Listings use the following conven- 
tions in representing unprintable 
characters, unless otherwise noted: 

Characters (including blank spaces) 
which are underlined should be typed in in- 
verse video. 

When graphics or control characters are 
to be included in a string (between quota- 
tion marks), it will be noted in a nearby 
REMark. In such cases, graphics characters 
are represented by the corresponding lower- 
case letter, and control characters are 
represented by the corresponding unshifted 
key symbol. For example: The lower-case 
letter s represents a control-down-arrow, 
entered by first pressing and releasing the 
ESC key, then holding down the CTRL key 
and pressing the = key. (See Appendix F, 
and the back cover, of the A TARI® BASIC 
Reference Manual.) 

The one exception to the above practice is 
that a clear-screen character (ESC 
CTRL-'i ) is represented in listings by a 
right-hand brace, which looks like this: } 

A shifted = is represented in the listings 
by a vertical line with a small gap in it: / 

SWAT— Before appending SWAT to a 
program in memory, the program to be 
SWATed must first be LISTed to disk or 
cassette (using LIST "D:FILENAME" for 
disk or LIST "C:" for tape). Next, turn the 
computer off, then on again, to clear the 
system and ENTER the program back into 
SoftSide 



memory (using ENTER "D: filename" for 
disk or ENTER "C:" for tape). Because of 
the unique method in which ATARI® 
BASIC stores variables in a program, the 
variable table must always be in the same 
order to produce accurate SWAT codes. 
LISTing and ENTERing the program is the 
only known way to rebuild the variable 
table in a specific order so that SWAT 
codes can match. 

Disks do not contain DOS. SYS files, and 
are therefore not bootable by themselves. 
First boot a disk which contains any version 
of DOS, then insert the SoftSide disk and 
RUN "D:COVER" (Adventure of the 
Month — RUN "D: INTRO"). 

Tapes CLOAD in the normal manner. If 
you have difficulty, try this procedure: 

(1) Type POKE 54018,54 and press 
RETURN. 

(2) Turn up the volume on your TV. 

(3) Type CLOAD and press RETURN 
once. 

(4) Press the PLAY button and listen. 

(5) When you hear a steady lead-in tone, 
press RETURN again. 

Side two of the tape is a duplicate of side 
one. 

TRS-80® 

Disks are available in Model 1 or Model 
III format. They contain the DOS PLUS 
operating system, and a cover program 
which automatically runs upon booting. 
Back issues prior to May, 1982, are 
available only in Model 1 format, and may 
be converted using the TRSDOS CON- 
VERT utility on a two-drive Model 111. 
Older back issues (with Model 1 TRSDOS) 
require you to enter BASIC and then type 
RUN "COVER". 

Tapes CLOAD in the normal manner on 
Model I's, and at low speed (500 baud) on 
Model Ill's. The first program is a 
cover/menu program. Side two of the tape 
is a duplicate of side one. 

NOTES ABOUT MAGNETIC MEDIA 

SoftSide disks and tapes are duplicated 
by reliable, professional duplication ser- 
vices; bad copies are very rare. However, 
the trip through the mail occasionally 
wreaks havoc with sensitive magnetic 
media. If, after a reasonable number of 
tries and a careful check and cleaning of 
your equipment, you are not able to load a 
program from a tape or disk, please return 
it to us with an exact description of the 
problem. If we cannot duplicate the pro- 
blem on our systems, we will advise you 
when we send the replacement copy. 

We use no copy-protection on our media. 
We urge you to make a backup copy of 
every disk or tape as soon as you receive it 
(and at the same time resist the urge to give 
copies to friends). Our replacement policy 
does not extend beyond 30 days. © 



Aye! Come aboard for the fight of your life 
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Fantastic HI-RES sword fighting 



You're in a duel to the death against a black- 
hearted pirate crew. Look out! Here they come 
swinging and slashing with their pikes, swords, 
and knives. 

Pirates to your right, pirates to your left . . . 
poison snakes, spiders, scorpions and killer rats! 
Hear your sword ring as you parry, thrust, 
lunge . . . run them through! If you're swords- 
man enough to win below decks, you go 



topside, and the fight continues . . . with 
Blackbeard himself and the motley crew. What 
a game! What a test of skill against opponents 
who really attack and fight back! What a 
chance to become the swordsman of the year! 
Get your copy now - thrill to the most realistic 
HI-RES graphics ever! 

SWASHBUCKLER. Only $34.95 for the 

Apple II*. At computer stores or: 
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9748 Cozycroft Ave. 
Chats worth, Ca. 91311 
(213) 709-1202 

VISA/MASTERCHARGE accepted. 
SI. 00 shipping/handling charge. 
(California residents add 6% taxj 

*AppleII a trademark of Apple 
Computer, Inc. 
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THE CLOZE TEST ^^^^^ »^ 

The Classroom Teacher's Diagnostic Reading Test. 

By Dr. William D. Hedges, Professor of Education, University of Florida. 

The CLOZE Test (Classroom Teacher's Diagnostic Reading Test) is an educational utility requiring a 32K Apple™ 
with Applesoft and disk drive. It is included as the bonus program on this month's Apple^'^ Disk Version. 




7^ 



: 



THE CLOZE TEST: WHAT 
IT IS AND WHAT IT DOES. 



A. fVhat The CLOZE Test Ls: 

The CLOZE test is a fast, practical 
way to enable the teacher or social 
worker to determine whether a stu- 
dent or client is able to read selected 
materials with understanding. It 
removes every fifth word from a 
selection of prose, replacing the 
word with a blank; the student is 
asked to fill in the blanks with the 
missing word. 

B. What It Does: 

The CLOZE test counts the number 
of correct words and furnishes a 
diagnosis as follows: 

1 . The person can read the material 
independently and understand it. 
(Above 57% correct) 

2. The person, with assistance, can 
understand the material. (44% to 
57%) 

3. The material is too difficult; it 
will be frustrating. (Less than 44% 
correct) 

C. General Teacher Usage. 

Stripped to the essence, the steps in 
doing the CLOZE test by hand are 
as follows: 

1. Choose a passage or passages of 
reading material which, 
presumably, are representative of 
the whole. 

2. Beginning with the second 
sentence, first word, remove every 
fifth word, replacing it with a blank. 

3. Do not remove any words from 
either the first or the last sentence. 

4. Endeavor to make sure you have 
at least 50 blanks to insure reliability 
of the test. This suggests you need at 
least 250 words in addition to first 
and last sentences. 

5. Blanks should be of equal length. 
Sentences may be of variable length. 

6. Initially ask students to read 
material silently in its entirety. 

7. Then ask students to begin fiUing 
in each blank with the word they 
think belongs there. (Note: it has 
been found that the exact word only 
should be counted as correct; 
nothing is gained by using 
synonyms. 

8. Teacher scores the paper. 



9. Student score is percent correct, 
i.e. number of correct answers 
divided by the number of blanks. 

10. Material is classified in category 
1, 2 or 3 as indicated above. 
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I. ENTERING AND USING 
THE MATERIAL ON THE 
MICRO COMPUTER 

A. How The Teacher Can Enter 
Material: 

This program is designed to take 
most of the drudgery out of the 
teacher's hands; for one thing, 
material need only be typed in once; 
from then on it is stored on a 
diskette. Five versions of the test are 
created for the student; more can be 
enabled by changing the number in 
the random number generator at 
Une 1890. 

Step 1: Place the program diskette 

in the disk drive. 

Step 2: Type "Run Cloze Test" and 

press return key. 

Step 3: When the Main Menu comes 

up, choose option 1 entitled 

"Teacher Input." 

Step 4: Type in the sentences of the 

reading passage. Make sure you in 

elude the period, question mark, or 

exclamation mark at the end of each 

sentence. 

Step 5: At the end of each sentence, 

press return. From this point on, 

presentation to students, scoring, 

etc. is done by the micro-computer. 

Step 6: Of course, you will be asked 

to give the file a name and press 

return. It is suggested that you 

assign a name meaningful to you. 

Samples are: "The Scarlet Letter," 

or "Scot Foresman 4th Reader," 

etc.. 

B, How The Student Takes The 
CLOZE Test: 

Step 1: Insert the diskette and turn 
on the console. 

Step 2: Type "RUN CLOZE 
TEST". 

Step 3: When the main menu comes 
up, choose option 2 entitled "STU- 
DENT INPUT". 

Step 4: At this point, the material is 
obtained from the file and presented 
at slow speed to the student. The 
student is asked to read the material 



and try to understand it. Note: The 
material is slow the first time 
because this is when the processing 
is done on each sentence. However, 
the waiting time will not be very ap- 
parent because the student will be 
reading the material slowly anyway. 
Step 5: The student is asked if 
he/she wishes to reread the 
material; if not, then the test begins. 
The first sentence, which has no 
blanks, is presented. Immediately, 
the second sentence is also 
presented. 

Step 6: The computer pauses and 
allows the student to enter the word 
he/she thinks is correct for the first 
blank. If. there is no more than one 
blank, the sentence is represented 
and the student is asked to fill in 
that blank, and so on. The word the 
student entered is now contained in 
the sentence with parentheses 
around it. 

Step 7: At the conclusion of the test, 
the student's score is presented. 
Step 8: If the student or teacher 
wish, they may see both the 
student's answers and the correct 
answers. 
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III. PARAMETERS YOU MAY 
CHANGE 

The dimension statements may have 
the numbers in them increased or 
decreased depending on the memory 
you have. Thus, if the teacher is 
entering short selections he or she 
may reduce the dimension numbers 
from the 52 sentences presently 
allowed. 



/ 



IV. TIPS AND PRECAUTIONS IN 
USING 

The testing runs faster with short 
selections, i.e. ten to fifteen 
sentences; however, it is less reliable 
than 40-50 sentence selections. On 
the other hand, several short selec- 
tion test scores are probably as 
reliable, if averaged, as one long 
one. 

Now and then, the computer may 
pause for a few seconds; this is to 
clear out memory, so do not be 
alarmed by it. Usually, in 15-20 
seconds, at most, it will commence 
once again. © 
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Wizardry 



Reviewed by Hartley G. Lesser 



Scenario 1: Proving Grounds of the Mad Overlord 
Scenario 2: The Knight of Diamonds 



*For a review of another product available 
for the Apple''''^ see page 82. 



from Sir-Tech Software, 6 Main St., 
Ogdensburg, NY 13669. System re- 
quirements: 48K Apple^"*^ II or Ap- 
ple^*^ II Plus with one or more disl( 
drives, DOS 3.3. Suggested retail 
price: Proving Grounds of the Mad 
Overlord — $49.45, Knight of 
Diamonds — $34.95. 

"I am in deep mourning. A com- 
panion... nay, more than mere com- 
panion... a brother... did pass away 
today, his life talcen most cruelly. 
The others grieve, as do I, for 
Rumbler, human thief extraor- 
dinaire. There was an aura of luck 
about Rumbler, a second sense that 
oft delivered us from slyly concealed 
traps and fiendish devices. His ac- 
cumulated wealth he gladly spent in 
the purchase of mystical potions 
which aided us all. 

"Our first forays into the 
dungeon of the Mad Overlord were 
fraught with many dangers. Yet, 
these were mere hints of the terrors 
which awaited us while hunting for 
the Staff of Gnilda in our later 
quests. 

"Nefarious creatures, possessed 
of powers the likes of which I pray 
never to witness again, seemingly 
awaited us at every turn of a cor- 
ridor, and at the entry to every 
room. Never shall I forget the 
caustic sting of the first enemy- 
inflicted wound, nor Rumbler's 
smart efforts to staunch the flow of 
blood. 

"I shall never gainsay Rumbler. 
Aye, it is my life I do owe Rumbler 
just as surely as do the others in our 
party. He will be sorely missed, that 
I can tell you. We shall never see his 
likes again." 

It is of such makings that Wizar- 
dry, A Game of Fantasy and Adven- 
ture, calls to its players. Designed 
for the Apple™ with 48K and 3.3 
DOS, the multi-faceted adventure 
uses the Apple^"^ Pascal 1.1 Run- 
time Operating System to extol its 
virtues onto your monitor's screen. 




A typical display from Wizardry 



More the pity other systems cannot 
take advantage of this marvelous 
software. 

The authors, Andrew Greenberg 
and Robert Woodhead, deserve the 
Academy Award of Computer 
Gaming for successfully writing and 
coding both scenarios of Wizardry. 

It is inadequate to call Wizardry a 
game. An "experience" is a much 
more suitable label. The player may 
create as many as twenty characters 
per disk, and may make as many 
scenario disks as he likes. Successful 
characters may also be transferred 
from one scenario to the next. Ini- 
tially, characters may be in the 
following categories: Fighter, Mage, 
Priest, and Thief. As one gains in 
experience, characters can become 
Bishops, Samurai, Lords, or even 
Ninja. All abilities are taxed to the 
limit the deeper into the dungeon 
one adventures. The dangers of the 
second scenario. Knight of 
Diamonds, are so extreme that one 
may not even create new characters 
there. One may foray only with 
characters developed in the first 



scenario, and the authors warn that 
even characters of thirteenth level 
may not be strong enough to with- 
stand the onslaught of the powers 
fighting to maintain control over the 
dungeon and the Staff of Gnilda. 

Each character class has a 
minimum requirement for Strength, 
I.Q., Piety, Vitality, Agility, and 
Luck. Strength affects melee com- 
bat, while I.Q. and Piety determine 
the ability to learn Mage and Priest 
spells, respectively. The score for 
Vitality indicates your character's 
vigor and his chances for successful 
resurrection, while Agility is the fac- 
tor deciding who attacks first... your 
character, or his/her opponent... a 
most important facet of the game. 
Lastly, Luck can aid in many 
mysterious ways, so should not be 
overlooked any more than the other 
characteristics listed above. 

The player must initially decide 
the race of his character (Human, 
Elf, Dwarf, Gnome, Hobbit), and 
his alignment (Good, Neutral, or 
Evil). Some character classes may 
only be Good, others Neutral, and 



SoftSide 



67 



>1PPLE 




the player's selection of an align- 
ment may totally restrict what pro- 
fession he/she would enjoy playing. 
But, such is life, is it not? 

Based on the decisions regarding 
race and alignment, the player is 
awarded several "bonus" points to 
allocate to his/her character. This 
point administration will decide 
your character's class. For example, 
to be a Priest, your character must 
have a Piety of at least eleven. 

The Priest, whether Evil or Good 
(but never Neutral), is a powerful 
character, with the ability to Dispell 
(send them back where they came 
from) the "undead." They also 
possess healing spells, protection 
spells, light spells... all manner of 
help to an adventuring party. 

Using the bonus points to cause 
Strength to reach eleven will allow 
your character to become a Fighter, 
able to use any weapon or any ar- 
mor he or she can afford to pur- 
chase (or find within the deadly 
dungeon corridors). The Fighter will 
have high hit points, which measure 
the damage a character may sustain 
before dying. These particular 
adventurers are normally found 
leading a party through a dungeon, 
since only the first three members of 
the party may attack or be attacked. 

Should I.Q. reach eleven, the 
Mage may be your character's pro- 
fession. A Magic-User is somewhat 
limited in the use of weaponry and 
armor, but watch out for his/her 
spells, especially as the figure gains 



experience levels. Monsters, once 
thought of as powerful, will sudden- 
ly lessen in severity if your Magic- 
User wisely commands the destruc- 
tive powers under his/her control. 

What adventuring group would 
be without its Thief, the hardy soul 
who usually ends up investigating 
locked chests for traps, and disarm- 
ing them. This category requires at 
least an eleven in Agility, and 
he/she may never be of Good align- 
ment. Though restricted regarding 
weaponry and armor, the Thief does 
manage to build more hit points 
than the Mage, which is good, 
especially if a trap he/she is disarm- 
ing decides to trip. 

The distribution of bonus points 
goes even further. Once you have 
decided on a character's profession, 
distribution between Vitality and 
Luck is important. The former will 
decide how likely it is that your 
character can be resurrected if he 
dies, and the latter will work with 
you, but in a strange and devious 
manner. 

You will also be informed as to 
the amount of gold your 
character(s) has in his possession, 
and your Spell-Users (Priest, Mage, 
Lord and Samurai) will also carry 
spell books, within whose pages the 
secrets of power are written. 

Should you, at any time, reaUze 
that your character(s) is not working 
out as you had hoped, there are 
several utility functions to aid in 
either completely deleting him. 



rerolling his statistics, attempting to 
change the character's class (this 
will be possible as he gains in ex- 
perience), or give him a new 
password (protects him from 
unauthorized use by another per- 
son). The latter should be used only 
in the most deHcate of situations. 
For, if one should happen to forget 
the password of a character, you 
have to go through the dickens to 
clear him out of the created 
character file. 

At any time, one may inspect any 
of the characters journeying 
through the dungeons. A complete 
statistical report is available for 
perusal, which is especially handy if 
you have forgotten the number of 
remaining spells for the Priest or 
Magic-User. Also revealed is the 
equipment currently being carried 
by your party, as well as items 
found. While in this mode, a 
number of other actions may also be 
undertaken. 

Characters may freely trade 
possessions among themselves. 
Perhaps your Thief has found chain 
mail armor, but being unable to 
wear such fine protection, offers it 
to a first level Fighter who has only 
been able to afford leather armor. 
This would be a handsome trade, 
and worth a fair price between the 
two. You may also re-equip your 
character with items purchased or 
found. 

Spell casting and using items may 
also be carried out in this mode. The 
latter would be for giving an an- 
tidote to a character pierced by a 
poison needle. Such actions tend to 
draw your party of characters close 
together. 

Your game always begins and 
ends at the Castle, whether playing 
Scenario One or Scenario Two. It is 
from this fine edifice that your 
selections are made from the Master 
Menu offered on the screen. 

The adventurers must assemble at 
Gilgamesh's Tavern. Here, any six 
of the as many as twenty characters 
you have created will meet and band 
together. A quick trip to Boltac's 
Trading Post by each character will 
equip him or her with whatever 
equipment may be purchased. The 
prices charged by Boltac's monopo- 
ly are, to say the least, exorbitant. 
One could save his/her treasure in 
order to buy that "something 



68 



SoftSide 



APPiJE 



special" gathering dust on tlie 
trader's shelves — like a + 1 short 
sword... or the +2 staff, a tempting 
tidbit for any Mage... a + 3 robe, or 
even a Ring of HeaHng. 

One may also have an item found 
within the dungeon investigated by 
Boltac regarding its special proper- 
ties, if any. Again, this is not inex- 
pensive, but once the item is iden- 
tified, the character may sell 
it... but, at half its original value. 

Other areas accessible from the 
Castle are The Temple of Cant, an 
area where the dead members of 
your party are carried by the Castle 
guards if you bring them out of the 
dungeon. Should any wish to at- 
tempt a resurrection of their dead 
ally, here is where such is attempted. 
Resurrection is not a simple job, 
and the priests charge highly for 
their service. Still, if one of your 
characters can afford the required 
"donation," the odds are rather 
good that a resurrection will suc- 
ceed. However, the older your 
character, the less likely it is that 
he/she will ever look upon the smil- 



ing faces of comrades again. 

The Adventurer's Inn, a friendly 
respite from the woes and wars of 
the dungeon, is probably the first 
place one would rush after leaving 
the Maze. It is here a character may 
rest, and have wounds healed at a 
cost determined by the type of ac- 
comodations the character selects. 
The stables, which are free, do 
nothing to aid in one's healing, 
although spells are recovered while 
resting, even here. 

The more expensive the room, the 
faster the rate of healing. The 
number of hit points that may be 
regenerated is Hmited only by the 
amount of gold one has to pay the 
innkeeper for the service. The 
rooms are rated as Cots, Economy, 
Merchant Suites, and Royal Suites. 
The latter cost five hundred gold 
pieces per week, but heal at the rate 
of fifty hit points per week — just 
the place for a high-level Fighter 
who comes out of the Maze in tat- 
ters. It is here, too, that a character 
is checked to see if he has acheived 
his next level of experience. If he 



has, he will be told of any increase 
(or decrease!) in his abilities, hit 
points, spells, and so on. In any 
event, he will be told how many ex- 
perience points he will need to make 
the next level. 

When it is time to proceed with 
the main task at hand, it's on to the 
Edge of Town, where one may 
choose to enter the Maze, return to 
the Castle (due to a sudden infusion 
of fear), or go to the Training 
Grounds. 

The Training Grounds area is 
where all characters are initially 
created (in the first scenario), re- 
created, permanently deleted, in- 
spected, equipped, and checked to 
see if they may change their class. 
For example, a Good Fighter might 
be capable of attaining Lordhood. 
This would entitle that character to 
not only retain the hit points and the 
warrior abilities of a Fighter, but 
also start to acquire priestly spells, a 
most powerful combination. 

The same would be true of a 
Priest about to become a Bishop, at 
which time he/she would acquire 



BOOK/DISK COMBINATIONS 

BECAUSE YOU DIDN'T BUY YOUR APPLE™ 
TO PRACTICE YOUR TYPING 



■ Practical manuals that show you 
how to program your Apple^** for 
business, learning, and pleasure. 

■ Convenience disks that contain 
all the programs and subroutines 
In the books they accompany— 
error free and ready to run. 

PLUS the Wiley expertise that has 
helped more than a million people 
learn how to program, use, and 
enjoy microcomputers. 

Look for them at your favorite 
bookshop or computer store. Or, 
check the sets that interest you, 
fill in the ordering information, 
and mail us this ad. 



n APPLE^*" BASIC: DATA FILE PROGRAMMING SET 

LeRoy Finkel & Jerald R. Brown 
How to program and maintain data files for billings, catalogs and 
lists, numerical and statistical data, and much more. Includes one 
5Vi" disk for Apple 11™. (Requires one 16 sector disk drive, 32K of 
memory) 1-89843-0 $32.90 

n GOLDEN DELICIOUS GAMES FOR THE APPLE™ 
COMPUTER SET 

Howard M. Franklin, Joanne Koltnow, & LeRoy Finkel 
Step-by-step instructions for designing game programs that turn 
your Apple H™ into a home entertainment center— whether you're a 
novice, intermediate or advanced programmer. Includes two 5Va" 
disks for Apple 11™. (Requires one 1 6 sector disk drive, 32K of 
memory) 1-89842-2 $47.90 

Please send the sets indicated for 15-DAY n Payment enclosed, plus sales tax. Wiley 




JOHN WILEY & SONS, Inc. 

605 Third Avenue, New York, N. Y 10158 
In Canada; 22 Worcester Road, Rexdale, Ontario M9W 1L1 



FREE EXAMINATION. (Restricted to the 
continental U.S. and Canada.) 
MAIL TO: JOHN WILEY & SONS, Inc. 

P.O. Box 092, Somerset, N.J. 

08873 



pays normal postage/handling. We nor- 
mally ship within 10 days. If shipment 
cannot be made within 90 days, 
payment will be refunded. 

D Bill me. D Bill firm or institution. 



ADDRESS 



For faster service call toll free: 800-526-5368. NAME 
I In New Jersey, call collect: 
, (201) 797-7809. Order Code #3-6769. 
I VISA, MasterCard, American Express 
I accepted on p hone orde rs. 



AFFILIATION 



CITY/STATE/ZIP 



SIGN HERE 092-3-6769 

Prices subject to change without notice. Apple and Apple II are trademarks of Apple Computer, Inc. 
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Mage spells, and also have the abil- 
ity to identify items found in the 
dungeon. Other attainable classes 
are Samurai and Ninja, most ap- 
plicable to the fighters of your 
party. 

The decision has been made. It's 
into the dungeon, for better or 
worse. The single letter commands 
are displayed for ease of use, 
although they will become second 
nature as you continue to play the 
game. All information concerning 
your party of daring adventurers is 
shown at the bottom of your 
monitor, and a three-dimensional, 
HI-RES display in the upper-left 
hand corner shows you where you 
are in the maze. If your Priest(s) has 
spells active, this will be revealed to 
the right of the 3-D display, with a 
blank message area beneath. At 
various times, messages containing 
hints or warnings will appear here. 

As you move through the maze, 
the 3-D display moves with you. 
Doors, turns, and secret doors (if 
you have a special light-spell ac- 
tivated), will be revealed in this 



amazing mini-screen. When the par- 
ty has an encounter, the creatures 
they face will be pictured here, and 
when the fight is over, the treasure 
will be here to see. 

For maximum enjoyment, the 
many secrets of these fantastic 
dungeons will not be revealed. It 
would behoove you to pay par- 
ticular attention to the Tips for 
Beginners, found on page 34 of the 
well-written instruction manual. I'd 
suggest you learn to make maps if 
you don't know how. These are 
complex dungeons, and parties that 
do not keep accurate maps seldom 
make it out. Regular graph paper 
works very nicely for the purpose of 
maze mapping. 

All in all, there are seven levels of 
Mage and Priest spells, and hun- 
dreds of possible creature combina- 
tions to confront your characters. 
The frightening Scenario One en- 
counters seem almost mild when 
compared to those found in the 
Knight of Diamonds adventure. It 
will be no easy matter for you to 
find the one valuable item hidden by 



the evil Wizard Werdna somewhere 
in the treasure rooms of the Mad 
Overlord Trebor's dungeon. Nor 
will it be simple to locate the Staff 
of Gnilda in Scenario Two, where 
the adversaries are stronger and 
more powerful than any previously 
encountered. From Dragon Zom- 
bies to the multiplying Fuzzballs, 
each adventurer should carefully 
evaluate his/her life's goals before 
commencing such treacherous 
undertakings. 

Rest assured, the key items to be 
found in the dungeons, no matter 
the scenario, are protected by 
heinous entities, magical darkness, 
teleporting rooms, and difficult rid- 
dles. Your characters' experience 
levels must be developed to their 
peak if they are to delve into the 
lower regions of the dungeons. 

I wish you well, and can but 
recommend this software with the 
highest of ratings. Never shall you 
be faced with a dull moment, and 
the character generation — maze 
mapping — combat — spell casting 
— why, it's all WIZARDRY! © 



C&H Best Sellers: Programs That Work! 




The 
Menu ][ 

$39.95 

( + $2.00 shipping) 

The MENUll stores your favorite recipes in any of 6 
"user-defined" categories. You "browse" through the 
alphabetized recipe list in these categories, choosing 



your menu selections with a simple keystroke. You can write your menu for up to 2 
weeks (42 meals) ; the rest is automatic! You can request a printed copy of your menu, 
your recipes (in any serving size up to 1 .295 people) and an alphabetized shopping list 
of the ingredients needed to prepare the meals you've selected (a check list of misc. 
items can be added to the list with the touch of a button). The shopping list 
automatically combines "like" ingredients and adjusts each recipe for the number of 
people eating the meal. Recipes and menus can be changed, deleted, or added to at 
any time. Also included is a Special Meal/Party planner menu option, and 2 "user- 
defined" counters (calories, sodium intake, etc.) Since you won't be overbuying 
anymore. "THE MENUll" may pay for itself on your very first shopping trip! 

Operates with 1 or 2 disk drives (DOS 3.3). Requires 48K Apple. Disk Drive, and 
Printer. Written in APPLESOFT and IMACHINE LANGUAGE. 




The 

Slide 

Show 

$49.95 

(^-S2.00 shipping) 



Finally, high-res pics are more versatile than 35mm 
slides... and less expensive! The "slide" show allows 
you to use your high-res pics in a programmed se- 



quence. Not another Graphics Package, but a versatile enhancement to all of the ex- 
cellent Graphics Packages already available. Think of it as a standard slide show on 
your television with the advantage of "TV-like" special effect transitions between 
"slides." 20 different transitions (including: horizontal and vertical wipes, ripple effects, 
column wipes, etc.). Works with standard Apple pics. Includes the capability for pro- 
ducing a stand-alone "Run-Time" package. I-4i-res pics (slides) load in approximately 
6 seconds. Supports single or multiple disc drives. Free run. timed, keypress or game 
button slide advance. User friendly. NOT copy protected! Compatible with NTSC TV 
signal processing hardware. Prints slide/transition listing. Written in Ap- 
plesoft/Machine Language. 48K. 1 or more disc drives, printer optional. (DOS 3.3) 

PERFECT FOR: 

• Educators • Cable or closed circuit 

• Salespeople TV nets 

• Businesspeople • Free running store 

• Executives displays 



Lectures 

Presentations 

Exhibits 

Broadcast Television 



See your favorite APPLf: 
dealer or order direct. Send 
check or iiioneu order to: 



C&H VIDEO 

110 W. Caracas Ave. 
Hershev. PA 17033 



DKALKR INQUIRIES WHLCOMK 
PA Res. Add 6% sales tax 

717-533-8480 

Between 9am and 9pn) 



[master Charge 1 
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The 'WW5S?3'^y''AdVcnlure Continues! Barbarians 
yiilher, preparing to sack the city of Llylgamyn. News 
that the mighty staff of Gnilda has been reclaimed by 
lis (idrthgod creator has travelled fast. Protected for a 
thousand .years by the power of the wonderous arti- 
fact, and now defenseless, Llylgamyn is doomed, 
unless you help! 

What have people said about the first scenario? 
. . IWlzardrv] has the potential to become a classic. 
David Lubar, Creative Computing 

The most eager/y awaited adueiilure . . . 

Computer Merchandising 

. . . perhaps the most advanced adventure program 

on the market. „ ^ , , -r, c- ^ 

rorest Johnson, I he opace Oamer 



The amount of detail is fantastic. 

Neil Shapiro, Popular Mechanics 

Knight of Diamonds, a challenging scenario for experi- 
enced Wizardry players (13th level characters will 
barely survive!). 

Prouing Grounds of the Mad Overlord (shown at 
right) and Knight of Diamonds operate on any Apple 
Computer* with at least 48K, DOS 3.3, and 1 disk 
drive. 

Proving Grounds of the Mad Overlord — $49.95 

Knighf of Diamonds -$34.95 

Join over ten thousand adventurers exploring 
the ultimate fantasy experience. 




Sliippins $2.00 in U.S.; $5.00 outside U.S. 



NOW AVAILABLE AT YOUR LOCAL COMPUTER AND HOBBY STORE 

■APPLE IS A REGISTERED TRADEMARK OF APPLE COMPUTER, INC. '1 



' ^=^ SOFTWARE, INC. 

Sir-te ch ] e IVIAIN street, OGDENSBURG.N.Y. 13669 
(315)393-6633 
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APPLE 
DISKOURSE 

Part two of a series 

By Cary W. Bradley 

If you used the Apple™ DOS 
manual to learn how to use the Disk 
Operating System, chances are that 
you reached page 94, read the first 
paragraph, and moved on to the 
next chapter. In that paragraph, you 
were told that, if you were not 
familiar with Machine Language, 
you would do just as well to skip the 
material dealing with the RWTS 
(Read or Write a Track and Sector) 
subroutine. Don't let that intimidate 
you. Even though Machine Lan- 
guage programmers can use RWTS 
to do all kinds of tricks, you can use 
it, too, even if your programming 
knowledge is limited to BASIC. I 
wrote a BASIC program using the 
RWTS subroutine within a month 
after I bought my Apple^"^, long 
before I started learning 6502 
Machine Language. I recommend 
that you read that section in con- 
junction with this article. 

The RWTS subroutine is the most 
fundamental element of DOS. 
Almost every DOS command in- 
volves either reading from or 
writing to the disk. Reading and 
writing are done one sector at a 
time. The RWTS subroutine is a 
Machine Language routine within 
DOS which either reads a disk sec- 
tor's 256 bytes into a 256-byte range 
of the Apple^'^'s memory or writes 
the contents of a 256-byte range of 
memory onto a disk sector. 

Other routines within DOS, or 
possibly another program, must 
determine what the data means. 
RWTS simply moves a chunk of 
data to or from the disk, as specified 
by the calling program. (This same 
subroutine is also used to format a 
diskette, but we'll gloss over that 
fact for the time being.) 

To use the RWTS subroutine 
from a BASIC program, you must 
provide three things; first, a 9-byte 
machine language routine, which 
has already been written for you. 
Second, you must provide 17 bytes 
of data which tell RWTS which slot 



and drive you wish to use, to which 
track and sector you want to read or 
write, and where in the Apple^'^'s 
memory your input/output buffer is 
to begin. Finally, you must give 
RWTS a 4-byte Device 
Characteristics Table, which 
describes the disk hardware. All of 
this information is already written 
out for you on page 95 of the DOS 
manual. If you're working in 
BASIC, as we are in this series, all 
you have to do is convert the hex- 
adecimal numbers listed on that 
page to their decimal equivalents 
and POKE them into an appropriate 
place in RAM. 

Compare the data in line 2420 of 
the program accompanying this arti- 
cle to the data on page 95 of the 
DOS manual. Except for a few bytes 
relevant to the specific tasks of this 
program, the data is the same. Only 
the location at which they are stored 
has been changed. I have chosen 
memory address 768 ($300) as the 
beginning location for this data in 
my program. This range of memory 
is handy to use for short Machine 
Language routines, because it is out 
of the way of everything which nor- 
mally goes on during execution of a 
BASIC program. Once the proper 
data is loaded, you can execute the 
RWTS subroutine by CALLing the 
address at which you have stored the 
data. 

I have entitled this month's pro- 
gram Disk Snooper, and when you 
run it, you'll see how apropos that 
name is. With it, you can snoop 
around your disks and see exactly 
which sectors each file occupies, and 
what is stored on each of them. The 
program is easy to use, with self- 
explanatory prompts, but a brief 
description of its usage is in order. 

The program is designed to run 
solely on drive 1 plugged into slot 6, 
and assumes you are using DOS 3.3. 
With a few modifications, these 
restrictions can easily be changed. 
I've used RWTS similarly in DOS 
3.2, but there are a few small dif- 
ferences. This program has not been 
tested under DOS 3.2. Each of the 
program's functions is accessed by 
pressing a single key. The keys 
which you may select are indicated 
by inverse characters in each of the 
program's menus. 

The main menu shows the major 
program functions: Catalog, File 
Summary, and Read Sector. The 



catalog is a BASIC adaptation of 
the machine language routine in 
DOS which runs in response to a 
DOS CATALOG command. It 
reads data from track 17, starting 
with sector 15, and displays the 
name of each active file on the disk. 
As you might expect, it is slower 
than its DOS counterpart, and it 
does not show all of the same infor- 
mation. It does, however, assign 
each file a number, which is a big 
help in the File Summary utility. 

The File Summary shows where 
on the disk a particular file is 
located. When you select this op- 
tion, you are asked for the file name 
or number. You will probably 
always want to enter the number, 
because it is so much easier than 
typing out the whole file name. For 
the masochists among you, the file 
name will also work. If you can't 
remember the number of the file 
you want, you can go directly to the 
Catalog utiUty by typing the letters 
CAT. Note that you don't have to 
view the entire catalog if it contains 
more files than will fit on the screen 
at one time. When the file you're in- 
terested in has been shown, you can 
hit the ESC key to abort the catalog 
and return to the File Summary 
utility. 

If the file you select is an Ap- 
plesoft or Integer BASIC program 
or a binary file, you will first be 
shown some special information 
about the file; its length in all cases, 
and, for a binary file, the address at 
which it will be BLOADed into 
RAM if you don't specify some 
other address in your BLOAD com- 
mand. These numbers are shown in 
both decimal and hexadecimal. Hex 
numbers are in parentheses, and 
designated by the conventional 
prefix $. 

Next, you will see which disk sec- 
tors contain the data for that file. 
File sectors are of two types. One 
type contains a track/sector list, 
which is simply a listing of the track 
and sector numbers of sectors con- 
taining the file's data. The second 
type holds the actual data. 
Track/sector list sectors are shown 
at the upper part of the screen, and 
the data sectors are shown below, in 
columns, with a separate column for 
each track which holds a part of the 
file. 

A disk file requires one track/sec- 
tor list sector for every 122 data sec- 
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tors in the file. If your file is large 
enough to have more than one sec- 
tor containing track/sector 
numbers, they will all be shown, and 
the one whose contents are currently 
displayed on the lower part of the 
screen will be shown in inverse. 
After all of the file's sectors have 
been shown, the total number of 
sectors in the file will be displayed. 
Both track/sector list sectors and 
data sectors are counted. This 
number is a true sector count, as op- 
posed to the mod 255 sector counts 
which are shown in the standard 
DOS catalog. 

The Read Sector utility allows 
you to read any sector on the disk 
and to see its contents. The 35 tracks 
are numbered from to 34, and the 
16 sectors, from to 15. The 
displays of sector contents will show 
the sector most recently read by the 
RWTS subroutine, whether it was 
read by the Read Sector utility, or 
by the Catalog or File Summary 
utilities. If no sector has been read, 
or if an error occurred on the last at- 
tempted read, you will be unable to 
display the buffer's contents. The 
sector bytes are numbered from to 
255 (decimal), and the number of 
any byte can be determined by ad- 
ding the headings (shown in inverse) 
of the row and column in which the 
byte appears. 

Several different types of data are 
stored on a disk, but they all look 
the same to RWTS. Hence, there are 
three display modes from which to 
choose, so that you can meaningful- 
ly interpret the sector's contents. 
Some sectors will have some bytes 
which are meaningful as decimal or 
hex numbers, and others which are 
best interpreted as characters. Ex- 
periment with viewing a single sec- 
tor in each of the display modes. 

Because the display data is con- 
verted to character strings for the 
decimal and hex displays, you will 
have to wait a few seconds for the 
strings to be built when you select 
these types of displays. Only 136 of 
the 256 bytes in the sector can be 
shown on the screen at one time, so 
you must use the right and left ar- 
row keys to scroll the display up and 
down. ScroUing in the direction op- 
posite to that which your Apple^'^is 
used to requires a short Machine 
Language routine, which is stored 
beginning at memory location 800 



($320). This routine is POKEd into 
RAM, and is represented by the 
data in the last two lines of the 
program. 

Even though this program will 
read any part of a standard DOS 3.3 
disk, notice that it does not include 
a single DOS command. That is the 
power of the RWTS subroutine. 
Although the DOS commands use 
it, if we know how to call it directly, 
we can bypass those commands to 
do all kinds of additional tasks. 
This program only scratches the sur- 
face of the RWTS subroutine's 
potential. 

As I discussed in my first article, 
the program is designed to run on 
the smallest possible RAM con- 
figuration. It is written for a 24K 
Apple"^"^, and will run on any 
machine with that much, or more, 
RAM, and Applesoft in ROM. If 
you want to make any modifications 
which would require additional 
RAM, you only need to change 
three lines of the existing program. 
Line 1520 must show your new 
value for HIMEM, which should be 
257 less than the default value set 
when DOS is loaded. Line 1530 
must initiahze BF% to the starting 
address of the data buffer you will 
be using. This number is 1 greater 
than the new HIMEM value. If this 
is larger than 32767, you must use 
the two's complement form (sub- 
tract 65536). Finally, you must 
change the 18th and 19th values in 
line 2420 to the decimal equivalents 
of the low byte and high byte of the 
hexadecimal address of your data 
buffer (0 and 53, respectively, in this 
version of the program.) 

You can use the DOS manual, 
and the program itself, to in- 
vestigate exactly how each part of 
the program works. With a little ex- 
perimentation, you can gain a lot of 
insight into the workings of DOS. 
Appendix C of the DOS manual will 
help you a great deal. We'll be doing 
much of this in upcoming articles, 
to see what is happening when we 
use the DOS commands. If any part 
of the program seems mysterious, 
be patient — we'll clear it all up as 
we explore the ins and outs of DOS 
in future installments. 

Next time, we'll look at the DOS 
catalog, and how it keeps track of 
what's on your disks. We'll also in- 
troduce a handy utility program to 
help you manage files while you're 



programming. Meanwhile, let me 
know, c/o SoftSide, of any DOS 
topics you'd like to see us tackle in 
this column. 

Variables: 

AD: Decimal program length and 
starting address 
AD$:Hex equivalent of AD 
B%: Bottom line of sector display 
BA%: Base address of current 
screen line 

BB%: Base address of bottom 
screen Hne 

BF%: Starting address of data 
buffer 

BS%: Number of sector in the 
buffer 

BT% : Number of track in the buf- 
fer 

C%: Track/sector display column 
number 

C1%,C2%: Used in dec/hex con- 
version 

CT%: File sector counter 
C$(*): Menu choices 
D: Decimal byte being converted 
to hex 

D'Vo: Display type indicator 
E%: (390-410) Error flag 
(1310-1340) Keyboard input 
ER%: RWTS error flag address 
F%: File counter 
H$: Hexadecimal character string 
HI: Address of high byte 
I,J,K: Index variables (misc. uses) 
INS: Keyboard input string 
L%: Screen line counter 
LO: Address of low byte 
L$(*): Display line strings 
M$: File data message 
M%: Error message type (0-1) 
M$(*): File Summary error 
messages 
N$: File name 

N% : Number of file being sought 
NS%: Next sector to be read 
NT%: Next track to be read 
R%: Display row (line) number 
RW%: Starting address of RWTS 
calling routine 

S%: Last track number displayed 
SC%: Sector selection address 
SR%(*): Sectors of track/sector 
list 

T$: File type 

T%: Temporary variable (misc. 
uses) 

TBVo: Base address of top screen 
line 

TK%: Track selection address 
TR'yo(*): Tracks of track/sector 
Ust 
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ss ss ss SS SS ss SS ss SS SS ss 


200 


POKE TKX.NTX: POKE SCX.NSX: CALL 


530 


I = I + 2:K = 1 


ss ss 




RMX: GOSUB 2350: GOTO 130 


540 


IF HID* (INt,K,ll < > CHR* 


ss APPLESOFT BASIC SS 








( PEEK (J + K) - 128) THEN 5 


ss 'DISK SNOOPER' SS 


File Summary main subroutine 




90 


SS AUTHOR: CARY BRADLEY SS 






550 K = K + 1: IF K < = LEN (IN | 


SS COPVRIGHT (C) 1982 SS 


300 


HOME : VTAB 6: INVERSE : HTAB 




*) THEN 540 


SS SS 




14: PRINT " DISK SNOOPER " 


560 


IF PEEK (J + K) < > 160 THEN 


SS SS SS SS 5S SS SS SS SS SS SS 


310 


VTAB 8: HTAB 10: PRINT « FIL 




590 


1 GOTO 1500 




E SUMMARY UTILITY ": NORMAL 


570 K = K + 1: IF K < = 30 THEN 
560 


Convert decimal byte to 2-byte hex 


320 


VTAB 11: HTAB 8: PRINT "ENTE 


580 Nt = IN*: GOTO 700 


string 




R FILE NAME OR NUMBER:" 


590 


I = I + 35: IF I < = BFX + 2 


10 CIX = INT (D / 16):C2;i = D - 


330 


VTAB 16: HTAB 11: PRINT "YOU 




21 THEN 520 


C17. t 16 




MAY ALSO ENTER:" 


600 NTX = PEEK (BFX + 1):NSX = PEEK 


20 H$ = CHR$ (48 + C17. + 7 t (CI 


340 


VTAB 18: HTAB 11: PRINT "'CA 




(BFX +2): IF NSX = THEN M 


7. ) 9)) + CHRt (48 + C2?; + 




T' FOR CATALOG": HTAB 11: PRINT 




X = 1: GOSUB 2260: GOTO 300 


7 t (C2X > 9)): RETURN 




"OR < RETURN) TO END" 


610 


POKE TKX,NTX: POKE SCX,NSX: GOTO 


Build ctiaracter strings for sector 


350 


POKE - 16368,0: VTAB 13: HTAB 




510 


display lines 




S: INPUT ■°;IM*! IF IN* = "" 






30 6DSUB 2340: FOR I = TO 31: L 


360 


THEN RETURN 
IF IN* = "CAT" THEN GOSUB 1 


File Summary data subroutine 


40 FOR J = BF7. + 8 t I TO BFX + 
7 + 8*1 


370 


00: GOTO 300 

IF LEN (IN*) > 30 THEN IN* = 


700 


FOR K = TO 5:TRX(K) = 255: 
NFXT 


50 Ltd) = Ltd) + RIGHT* (" " 
+ STRt ( PEEK (J)), 4): NEXT 

J, I: RETURN 
60 SOSUB 2340: FOR I = TO 31:L 

*(I) = "" 


LEFT* (INJ,30) 
380 IF LEFT$ dNt,l) ( "0" OR LEFT* 

(INt.l) > "9" THEN 500 
390 E7. = 0: FDR I = 1 TO LEN (IN 

*) 


710 HOME : INVERSE : PRINT "FILE 
:";: NORMAL : PRINT " "N*:TX 
= PEEK (1+2) 

720 T* = " (UNLOCKED)": IF TX )■ = 


70 FOR J = BF7. + 8 t I TO BF7. + 
7 + 8*1 


400 


IF MID* (IN*, 1,1) < "0" OR 
MID* (IN*, 1,1) > "9" THEN E 




128 THEN T* = " (LOCKED) ":TX 
= TX - 128 


30 D = PEEK (J): GOSUB i0:L$(I) = 
Ltd) + " " + H*: NEXT J, I: 
RETURN 


410 


X = 1 

NEXT : IF EX THEN MX = 0: GOSUB 

2260: GOTO 300 


730 
740 


IF TX = THEN T* = " TEXT F 

ILE" + T* 

IF TX = 1 THEN T* = " INTEBE 


Catalog subroutine 

100 HOME : POKE TK7.,17: POKE SCX 


420 N7. = VAL (IN*): POKE TK7.,17: 

POKE SC7.,15:F7. = 1 
430 CALL RWX: GOSUB 2350:1 = BFX 


750 


R PROGRAM" + T* 

IF TX = 2 THEN T* = " APPLES 
OFT PROGRAM" + T* 


, 15: CALL RWi: GOSUB 2350 




+ 11 


760 


IF TX = 4 THEN T* = " BINARY 


110 PRINT "CATALOG";: HTAB 25: PRINT 


440 


TX = PEEK (I): IF TX = OR 




FILE" + T* 


"DISK VOLUME "; PEEK (791): POKE 




TX = 255 THEN 470 


770 


IF LEFT* (T*,2) = " (" THEN 


34,2: HOME 


450 


IF NX = FX THEN N* = "": FOR 




T* = " UNKNOWN" + T* 


120 11 = 0:F7. = 




J = I + 3 TO I + 32:Nt = N* + 


780 


INVERSE : PRINT "TYPE:";: NORMAL 


130 FOR I = BFV. + 11 TO BF7. + 22 




CHRt ( PEEK (J)): NEXT : GOTO 




: PRINT T*: POKE 34,3: HOME 


1 STEP 35: T7. = PEEK (I): IF 




700 






T7. = 255 OR n = THEN 180 


460 FX = FX + 1 


790 


IF TX = 1 OR TX = 2 OR TX = 


140 IF L7. = IS THEN GOSUB 2290 


470 


I = I + 35: IF I < = BFX + 2 




4 THEN GOSUB 1800 


150 L7. = L7. + 1:FX = FX + 1 




21 THEN 440 


800 TRX(O) = PEEK (I):SRX(0) = PEEK | 


160 PRINT CHR* (91) + RIGHT* ( 


480 NTX = PEEK (BFX + 1):NSX = PEEK 




(I + 1):K = 0:CTX = 


" " + STR* (F7.) + CHRt (9 




(BFX +2): IF NSX = THEN M 


810 


POKE TKX,TRX(K): POKE SCX,SR 


3), 4); SPC( 4); 




X = 1: GOSUB 2260: GOTO 300 




X(K): CALL RWX: GOSUB 2350 


170 FOR J = I + 3 TO I + 32: PRINT 


49C 


POKE TKX.NTX: POKE SCX,NSX: GOTO 


820 


IF PEEK (BFX + 1) = AND PEEK 


CHR* ( PEEK (J));: NEXT : PRINT 




430 




(BFX + 2) = THEN 840 




50i 


POKE TK2,17: POKE SCX,15 


830 K = K + 1:TRX(K) = PEEK (BFX 


180 NEXT 


510 CALL RWX: GOSUB 2350:1 = BFX 




+ 1):SRX(K) = PEEK (BFX + 


190 NT7. = PEEK (BF7. + 1):NS7. = PEEK 




+ 11 




2): GOTO 810 


(BF7. + 2): IF NS7. = THEN PRINT 


521 


TX = PEEK (I): IF TX = OR 


840 K = 0: INVERSE : PRINT "T/S L 


: GOSUB 2300: TEXT : RETURN 




TX = 255 THEN 590 




1ST:";: NORMAL 
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850 


HTAB 11 + 6 t K: PRINT TRX(K 


1150 


IF IN* = "Q" THEN RETURN 


1410 TX = TX - 1:BX = BX - 1: CALL 




)"/"Sfi?;(K); 


1160 


IF IN$ < > "D" THEN PRINT 


800: INVERSE 


860 K = K + 1: IF K < 5 AND TRXiK 




CHR$ (7): GOTO 1130 


1420 VTAB 6: HTAB 1: PRINT RIGHT* 




) < 255 THEN 850 


1170 


IF PEEK lERX) = 255 THEN VTAB 


("00" + STR* (TX 18)+"' 


870 K = 0; VTftB 6: HTftB 1: INVERSE 




23: HTftB 13: INVERSE : PRINT 


,4); 


880 


: PRINT "FILE DATA SECTORS:" 
! NORMAL : POKE 34,6: HOME 
POKE TKXJRX(K): POKE SCX.SR 
■/,(K): CALL RWX: 60SUB 2350 


1180 


CHR* (7); "BUFFER IS EMPTY": 
NORMAL : HTAB 8: GOSUB 2300 
: GOTO 1100 

TX =12: GOSUB 2000 


1430 IF DX THEN FOR I = TO 7: 
POKE TBX + 4 t I, PEEK (BFX 
+ TX » 8 + I): NEXT : SOTO 
1300 


890 
900 


IF K '.. 1 THEN 91y 

VTAB 4: HTAB (K - 1) « 6 + 1 

1: PRINT TRX(K - 1)'/"SRX!K - 


1190 


VTAB 21: HTftB 11: PRINT "SE 
LECT DISPLAY:";; CftLL - 868 
: POKE - 16368,0 


1440 NORMAL : PRINT L*(TX): GOTO 
1300 


910 


1); 

VTftB 4: HTAB K t 6 + 11: INVERSE 


1200 


GET INt: PRINT IN«: IF IN$ = 


Program initialization 




! PRINT TRX(K)"/"SRX(K): NORMAL 




"D» THEN DX = 0: GOSUB 30: GOTO 
1240 

IF IN* = »H" THEN DX = 0: GOSUB 
60: GOTO 1240 


1500 POKE 235, PEEK (115): POKE 


920 


SX = PEEK (BFX + 12):CX = 0: 
RX = 7 


1210 


236, PEEK (116) 
1510 DIM TRX(5),SRX(5),M*(1),L*( 

31) 
1520 HIMEM: 13567 
1530 RWX = 768:TKX = 781:SCX = 78 


930 


FOR I = BFX + 12 TO BFX + 25 
4 STEP 2 


1220 


IF IN* < > "C" THEN PRINT 
CHR* (7): GOTO 1190 


940 


IF PEEK (I) = AND PEEK ( 


1230 n = 1 


2:ERX = 790:TBX = 1671:BBX = 




I + 1) = THEN 1000 


1240 


GOSUB 2100 


1751:BFX = 13568 


950 


IF PEEK (I) < > SX THEN CX 


1250 


FOR I = TO 16: VTAB I + 6 


1540 FOR I = TO 6: READ C«(I): 




= CX + 1:RX = 7 




: HTAB 1: INVERSE 


NEXT 


960 


IF CX > 3 THEN VTAB 24: HTAB 


1260 


PRINT RIGHT* ("00" + STR* 


1550 FOR I = TO 1: READ M*(I): 




9: GOSUB 2300: HOME iCX = 0: 




(I » 8) + " ",4);:BAX = PEEK 


NEXT 




RX = 7 




(40) + 256 1 PEEK (41) 


1560 FOR I = RHX TO RWX + 29: READ 


970 VTAB RX: HTAB 2 + 10 t CX 
980 SX = PEEK (I): PRINT RIGHT* 

("0" + STRt (SX),2}| 
990 PRINT "/" RI6HT$ ("0" + STR* 

( PEEK (I + 1)),2):RX = RX + 


1270 


IF DX THEN FOR J = TO 7: 
POKE BAX + 7 + 4 » J, PEEK 
(BFX + I t 8 f J): NEXT J, I: 
GOTO 1290 


TX: POKE I,TX: NEXT 
1570 FOR I = 800 TO 862: READ TX 
: POKE I,TX: NEXT 

Main menu 




hCTX = CTX + 1 


1280 


NORMAL : PRINT L*il);: NEXT 


1600 TEXT : HOME : VTAB 5: HTAB 


1000 NEXT 

1010 K = K + 1: IF K > 4 OR TRX(K 


1290 TX = 0:BX = 16: POKE - 1636 


14: INVERSE : PRINT " DISK S 
NOOPER " 




) = 255 THEN GOSUB 2230: VTAB 




8,0 


1610 VTAB 7: HTAB 15: PRINT " MA 




24: HTAB 9: GOSUB 2300: TEXT 


1300 


IF PEEK ( - 16384) < 128 THEN 


IN MENU ": NORMAL 




: 60T0 300 




1300 


1620 FOR I = TO 3: VTAB 11+2 


1020 


VTAB 24: HTftB 9: GOSUB 2300 


1310 EX = PEEK ( - 16384): POKE 


« I: HTAB 15: PRINT C*(I); 




: HOME : GOTO 880 




- 16368,0 


1630 HTAB 15: INVERSE : PRINT LEFT* 






1320 


IF EX = 141 THEN 1100 


(C»(I),1);: NORMAL : NEXT 


Read Sector main subroutine 


1330 


IF EX = 136 THEN 1400 


1640 VTAB 20: HTAB 15: PRINT 'SE 






1340 


IF EX < > 149 THEN 1300 


LECTION:";: CALL - 868: POKE 


1100 


TEXT : HOME : VTAB 5: HTftB 


1350 


IF BX > 30 THEN 1300 


- 16368,0 




14: INVERSE : PRINT " DISK S 


1360 BX = BX + 1:TX = TX + 1: CALL 


1650 GET IN*: PRINT IN*: IF IN* = 




NODPER " 




- 912 


"C» THEN 1700 


1110 


VTAB 7: HTAB 10: PRINT ' RE 


1370 


INVERSE : VTAB 22: HTftB 1: PRINT 


1660 IF IN* = »F» THEN 1710 




AD SECTOR UTILITY ": NORMAL 




RIGHT* ("00" + STR* (BX » 
B) + " ",4); 


1670 IF IN* = "R" THEN 1720 
1680 IF IN* = "Q" THEN POKE 115 


1120 


TX = 1: eOSUB 2000 


1380 


IF DX THEN FOR I = TO 7: 


, PEEK (235): POKE 116, PEEK 


1130 


VTAB 21: HTAB 11: PRINT "SE 




POKE BBX + 4 t 1, PEEK (BFX 


(236): HOME : PRINT "END DIS 




LECTION:";: CALL - 868: POKE 




+ BX » 8 + I): NEXT : GOTO 


K SNOOPER": END 




- 16368,0 




1300 


1690 PRINT CHR* (7): GOTO 1640 


1140 


GET IN*: PRINT IN$: IF IN$ = 


1390 


NORMAL : PRINT L*(BX);: GOTO 


1700 GOSUB 100: SOTO 1600 




"R» THEN 60SUB 2150: GOTO 1 




1300 


1710 GOSUB 300: GOTO 1600 




100 


1400 


IF TX < 1 THEN 1300 


1720 GOSUB 1100: GOTO 1600 
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yIPPLE 



Show special information for BASIC 
and binary file 



PEEK 



1800 NTX = PEEK (TK7.):NS'/. = 
(SCr.): VTAB 4 
POKE TKX, PEEK (I): POKE SC 



1810 



X, PEEK (I + 1): CALL RWX: GDSUB 

2350 
1820 POKE TKX, PEEK (BFX + 12): POKE 

sex, PEEK (BFX + 13): CALL R 

WX: GOSUB 2350 
1830 IF TX < 3 THEN H$ = 'PROGRft 

II LENGTH: ": GOTO 1850 
1840 m = -DEFAULT BLDAD ADDR: " 
1850 LO = BFX:HI = BFX + 1 
1860 AD = PEEK (LO) + 256 I PEEK 

(HI) 
1870 D = PEEK (HI): 60SUB 10:AD$ 

= H$ 
1880 D = PEEK (LO): SOSUB 10:AD$ 

= AD$ + H$ 
1890 PRINT I1*;AD" (*"AD$")";: IF 

TX < 3 THEN PRINT " BYTES": 

PRINT 
1900 IF TX = 4 THEN PRINT :M* = 

"RAH IMAGE LENGTH: ":L0 = BF 

X + 2:HI = BFX + 3:TX = 0: GOTO 

1860 
1910 POKE TKX,NTX: POKE SCX.NSX: 
CALL RHX; GOSUB 2350: GOSUB 

2300: RETURN 



Miscellaneous subroutines 



2000 

2010 

2020 

2030 

2040 
2050 

2060 

2070 

20B0 
2090 

2100 
2110 



VTAB 



* 



PRINT 



PRINT 



VTAB 



t 



FOR I = I TO 5: 
I: HTAB 11 

IF I = 1 AND TX = 12 THEN 

SPC( 11): GOTO 2040 

IF I = 5 AND TX = 12 THEN 

SPCI 4): GOTO 2040 

PRIfJT C«(2 + I - 4 t (I = 
) - (I = D) 

NEH : INVERSE 

FOR I = 1 TO 5: 
I: HTAB 10 + TX 

IF (I ^ 1 OR 
12 THEN 2080 

PRINT MID* (C$(2 + I - 4 t 
(I = 5) - (I = 1)),TX,1) 

NEXT : NORMAL : RETURN 

HTAB 3: PRINT "BUFFER CONTA 
INS: 
CTOR " 

TEXT 
2090 

VTAB 4: HTAB 1: INVERSE : PRINT 
"BYTE":: FOR I = TO 7 



=5) AND TX 



TRACK " PEEK (TKX)", SE 
PEEK (SCX): RETURN 
: HOME : VTAB 2: GOSUB 



76 



2120 PRINT SPC( 3);I;: NEXT : PRINT 
" ": PRINT SPC( 4): NORMAL 

2130 VTAB 24: HTAB 3: PRINT "PRE 
SS: <--, -->, OR <RETURN> TO 
GUIT"; 
2140 POKE 34,5: POKE 35,22: RETURN 

2150 VTAB 10: HTAB 1: CALL - 95 
8: HTAB 11: INVERSE : PRINT 
Ct(2): NORMAL 

2160 VTAB 12: HTAB 11: INPUT "TR 
ACK (0-34):"fIN$ 

2170 IF LEN (IN$) > 2 OR LEFT* 
(INt.I) < "0" OR LEFT* (IN$ 
,1) > "9" OR RIGHT* (IN*,1) 

< "0" OR RIGHT* (IN*,1) > 
"9" OR VAL (IN*) > 34 THEN 
2150 

2180 BTX = VAL (IN*) 

2190 VTAB 14: HTAB 11: INPUT "SE 
CTOR (0-15):"; IN* 

2200 IF LEN (IN*) > 2 OR LEFT* 
(IN*,1) < "0" OR LEFT* (IN* 
,1) > "9" OR RIGHT* (INt,l) 

< "0" OR RIGHT* (IN*,1) > 
■9" OR VAL (IN*) > 15 THEN 
2150 

2210 BSX = VAL (IN*): POKE TKX,B 

TX: POKE SCX, BSX: CALL RHX: GOSUB 
2350 

2220 VTAB 17: GOSUB 2090: VTAB 2 
4: HTAB 9; GOSUB 2300: RETURN 

2230 FOR I = TO 5- IF TRX(I) < 

255 THEN CTX = CTX + 1 
2240 NEXT 
2250 VTAB 6: HTAB 25: INVERSE : PRINT 

"SECTOR COUNT: "CTX: NORMAL : 
RETURN 
2260 VTAB 14: HTAB 8: FLASH 
2270 PRINT CHR* (7)iMt(MX): FOR 

I = 1 TO 3000: NEXT 
2280 NORMAL : TEXT : RETURN 
2290 LX = - 1: VTAB 24: PRINT "0 

R <ESC> TO ABORT";: VTAB 23: 
HTAB 1: PRINT "(MORE) "; 
2300 PRINT "PRESS ANY KEY TO CON 

TINUE";: POKE - 16368,0 
2310 IF PEEK ( - 16384) < 128 THEN 

2310 
2320 IF PEEK ( - 16384) = 155 AND 

LX = - 1 THEN POP : TEXT 
2330 HOME : RETURN 
2340 VTAB 24: HTAB 11: FLASH : PRINT 

" ONE MOMENT, PLEASE ";: NORMAL 

: RETURN 

SoftSide 
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IF PEEK (ERX) 
PEEK (ERX) < 



< > 64 AND 

> 128 THEN RETURN 



2360 INVERSE : VTAB 23: HTAB 14: 
PRINT CHR* (7); "UNABLE TO 

READ" 
2370 NORMAL : HTAB 8: GOSUB 2300 

: POKE ERX, 255: POP : RETURN 

String data 



2400 



2410 



DATA CATALOG, FILE SUMMARY, R 
EAD SECTOR, QUIT, DISPLAY IN D 
ECIHAL, DISPLAY IN HEXADECIMA 
L, DISPLAY AS CHARACTERS 

DATA ILLEGAL ENTRY.FILE NOT 

FOUND 



RWTS subroutine data 

2420 DATA 169,3,160,9,32,217,3,9 
6,0,1,96,1,0,0,0,26,3,0,53,0 
,0,1,255,0,96,1,0,1,239,216 

Reverse scrolling routine data 

2430 DATA 165,35,56,233,1,72,32, 
36,252,165,40,133,66,165,41, 
133,67,164,33,136 

2440 DATA 104,56,233,1,197,34,48 
,13,72,32,36,252,177,40,145, 
66,136,16,249,48 

2450 DATA 224,160,0,32,82,3,176, 
12,164,36,169,160,145,40,200 
,196,33, 144, 249, 96, 76, 34',252 



© 



APPLE™ SWAT TABLE FOR: 
DISK SNOOPER 


LINES 


SWAT 
CODE 


LENGTH 


1 - 120 


LD 


374 


130 - 330 


KB 


396 


340 - 450 


RK 


412 


460 - 570 
580 - 770 


LV 
DM 


308 
406 


780 - 890 


NS 


399 


900 - 1010 
1020 - 1200 


ZB 
LC 


365 
401 


1210 - 1320 


DL 


301 


1330 - 1440 


MN 


323 


1500 - 1630 


SB 


354 


1640 - 1820 


KD 


341 


1B30 - 2020 
2030 - 2140 
2150 - 2260 


TC 
KA 
ZQ 


383 
333 
438 


2270 - 2400 


lU 


444 


2410 - 2450 


VS 


346 
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TRICKY TUTORIALS (ttn) 

There are many things that the ATARI computers can do either beiler, or easier 
than other small computers. The to lowing series of programs is designed for 
anyone who is at least familiar with BASIC programming. What each tutorial offers 
is similar to an extensive magazine article with all discussion in as simple 
language as possible, plus you get f^lANY examples already typed in and running. 
The instruction manuals range from 10 to 50 pages, and some tutorials fill up a 
complete tape or disk. There is little overlap in what is taught, so anyone wanting 
to know all they can should buy them all (my banker thanks you). ATARI buys 
these from us to use in training their own people! Rave reviews have been pub- 
lished in ANTtC, ANALOG, CREATIVE COI^PUTING, and even INFOWORLD. You 
trust INFOWORLD, don't you? 

TT #1 : DISPLAY LISTS— This program teaches you how lo alter the program in the 
ATARI that controls the format of the screen. Normally, when you say "Graphics 
8", the machine responds with a large Graphics 8 area at the lop of the screen and 
a small text area at the bottom. Now, you will be able to mix various Graphics 
modes on the screen at the same time. The program does all of the difficult things 
(like counting scan lines). You will quickly be able to use the subroutines Included 
in your own programs- 
16K Tape or 24K Disk. S19.95 

TT n: HORIZONTAL/ VERTICAL SCROLLING-The information you put on the 

screen, either GRAPHICS or TEXT, can be moved up, down, sideways, or 
diagonally. We provide the basic methods and leave the rest up to your skill and 
imagination. Includes 18 examples to get you started, with several using a small 
machine language subroutine lor smoothness. 
16K Tape or 24K Disk, $19.95 

TT #3: PAGE FLIPPING— Now you don't have to redraw the screen every time you 
change the picture or text. You will learn how to have the computer draw the next 
screen you want to see while you are still looking at the previous screen, then flip 
to it instantly. You won't see it being drawn, so a complicated picture can seem to 
just appear. Depending on your memory size and which graphics or text modes 
you are using, you can instantly look at up to 50 pages. The basic method takes 
only 9 lines and the usefulness is infinite. 
16K Tape or 24K Disk. S19.95 

TT #4: BASICS OF ANIMATION— This program shows you how lo animate simple 
shapes (with some sound) using the PRINT and PLOT commands, and it also has a 
nice little PLAYER/MISSILE GRAPHICS game you can learn from. The P/fVI exam- 
ple is explained and will get you started on this complicated subject (more fully 
explained in TT #5). This would be an excellent way to start making your programs 
come alive on the screen with movement! Recommended for beginning users. 
16K Tape or 24K Disk. 519.95 

TT #5: PLAYER/MISSILE GHAPHICS-Learn to write your own games and other 
animated applications! The tutorial begins wilh many small examples that compli- 
ment the 50 page manual, then gradually builds up to a complete game where 
everything you need to know is fully explained. Also included are two machine 
language utilities that you can use to animate Players with from BASIC. Next we 
include two ol the best editors currently available; one for editing playfield shapes 
(backgrounds); and one lo edit your players, and all in glorious Technicolor!! 
Everything except the two editors run in 16K Tape or 32K Disk, 529.95 

TT #6: SOUND AND MUSIC— Unless you have spent many years experimenting 
wilh the four voice channels, you will learn a lot from this one! Learn to play stan- 
dard notes, chords, and whole songs using some simple "tricks". One of the 
nicest parts are the examples of special sound effects that you can refer lo 
whenever you need a sound for a program or to impress a Iriend. This program will 
be o! interest to all ages and levels of experience! 
16K Tape or 24K Disk. 519.95 

SPECIAL DISCOUNT 
Order the lirst six tutorials in a 3-rmg binder lor 599.95. a 530. 00 savings! 

TT #7: DOS UTILITIES— We at Educational Software have been shocked by some 
of the prices others are charging to offer you smalt utilities to help in the use ol 
your Disk Drive We now offer you all of the following plus explanation as to how 
each was written, and how to use ihem: A UNIQUE f^ENU PROGRAI^, AN 
AUrORUN.SYS BUILDER, DISK INSPECTOR (LOOK AT SECTORS), DISK JACKET 
PRINTER, AUTOMATIC FORl^ATTER, RECORD SAVE AND LOAD UTILITY, 
32K Disk Only. $29.95 



MASTER MEMORY MAP (tm) 

This book is the most valuable source of information for 
your ATARI you can buy. 11 starts out by explaining how 
to PEEK and POKE values into memory, so that even new 
computer owners can use many of these "Tricks". Then 
you are given 32 pages of the memory locations that are 
the most useful, along with hints on how to use many of 
the locations. Finally, it includes hints on problems you 
may be having with the computer and discusses the new 
Graphics modes 9 to 1 1 . Even ATARI buys this book from 
us! $6.95 

USER SUBMITTED PROGRAMS— 

MINI-DATABASE/DIALER-slores and edits up to 8 
lines of information such as names & addresses, pnone 
numbers, messages, inventories, or anything you want. 
11 has the usual sort, search, and print options, but it 
also has an unusual feature; If your file includes phone 
numbers and your phone company allows touch-tone 
phone signals, the program will DIAL THE PHONE 
NUIWBERFORYOU! 16K Tape or 24K Disk, $24.95 

THE GRAPHICS MACHINE-allows the ATARI to act like 
more expensive graphics computers using simple com- 
mands like line. box. circle, polygon, fill, and 
savescreen lo get a high resolution picture you can save 
on disk in only five seconds! Ivlany more features! 48K 
Disk Only. 519.95 

BOB'S BUSINESS-14 small business type programs 
accessed from a common menu. 16K Tape or 32K disk, 

$14.95 

OUR NEWEST PROGRAMS 



CONTACT YOUR LOCAL 
DEALER or ORDER BELOW 

We have other fine programs lor ATARI computers. 
Write for a catalog. 

Send us your programs to sell loo! 



DOG DAZE— Two cute little doggies race (or the fire 
hydrants, shoot their bones, and just have a lot of fun! A 
fast action program for all ages. 8K Tape or 16K Disk, in 
mactiine language. 516.95 

' OUR BEST GAME * 
SPACE GAMES— Our lamily is being attacked by 
ALIENS, and only you can save us, A comic book manual 
will guide you through three games that test your ability 
in space skills. Includes ALIENS. SURVIVE, and ROBOT 
ATTACK, and is tor all ages. The first two games require 
16K for Tape. The last game and all Disk users need 
32K. 524.95 

MATHS FOR FUN-Another ENGLISH import teaching 
basic math skills. Very colorful and enjoyable to use. For 
ages 5 to 16. 16K Tape or 24K Disk. 519.95 



MARATHON- This is a unique math quiz tor one or two 
players. You are in a race to move your runner across the 
screen first! There are (our levels of play wilh five modes 
of operation for each. The game uses joysticks lor all 
input, so play is easy for young children. This wonderful 
learning tool is imported from ENGLAND for your learn- 
ing pleasure. Your kids will never even notice they are 
playing an EDUCATIONAL program. 16K Tape or 24K 
Disk. $19.95 

GRADE BOOK— This nice record keeper will maintain a 
file of 35 students' test scores along with comments. Up 
to 7 subjects are allowed. 24K Tape or 32K Disk, A 
printer Is optional, 524.95 



To order COD, VISA or MasterCard call - (408) 476-4901 

By mail include $3.00 postage (USA only) or $1.50 Memory Map only- 
California residents add 6.5% TAX.— Specify Tape or disk. 




EDUCATIONAL SOFTWARE inc. 

5425 JIGGER DR. 
SOQUEL, CA 95073 



MINI WORDPROCESSOR-A simple text editor lo write, 
save, and print several pages at a time. 32K Tape or 
Disk. $19.95 

KID'S #1-lncludes a MATH QJIZ, a children's 
TREASURE HUNT and a DIALOGUE program. 16K Tape 
Or24KDisk 3lor. . . S14.95 

KID'S y('2-SPELLING BEE, Vl/ORD SCRAMBLE, 
and TOUCH. I6K Tape or ZIK Disk. 3 Educational games 
lor . . . $14.95 

PLAYER PIANO— Turns your keyboard into a mini-piano 
and more. 24K Tape or 32K Disk. $14.95 

GRAPHIC SYMBOL LABELS-lor your keyboard lo re- 
mind you of the built-in Graphics symbols. 2 complete 
selslor . , S2.95 
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by Frank Roberts 

NEATLIST is an ATARI® utility program 
requiring an 80-column printer, disk drive (see 
cassette modification), and 16K RAM. It is in- 
cluded as the bonus program on tliis month's 
ATARI® DV. 

If you have ever tried to debug or change a 
BASIC program containing several statements 
in each line, you may enjoy NEA TLIST. It is a 
utility which lists a program to the printer in a 
special format: Every statement in each line is 
listed vertically on an individual line beneath its 
corresponding line number. REM statements 
are set apart from the program with a border of 
asterisks. This makes documentation much 
easier to locate and check. This program 
utilizes the ATARI'S LIST "D:" command; the 
user must first list the program to a disk, then 
run NEATLIST. The program will take care of 



the rest. This utility is nearly indispensable 
when debugging heavily "crunched" programs 
— and healthier than aspirin and eyedrops! 

Cassette Modification 

NEATLIST can be modified for use with 
cassette systems by changing line 180 to read: 

180F$-"C:":F$(3) = R$ 

This will read the program from the cassette, 
providing that the user has stored the program 
to be printed on the cassette with the command 
LIST "C:". 

It may take you a little experimentation to get 
the hang of this technique the first time you use 
the program, but the results will be well worth 
your efforts. © 
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It is commonly known that, in ad- 
dition to the capabiUty of driving 
sound through a television or 
monitor speaker, the ATARI® has 
an onboard speaker, similar to the 
Apple U^^. This speaker can and 
does serve in a number of capacities, 
not the least of which is to sound a 
prompt or signal tone, to flag a 
specific mode or indicator. 

Users of the 410 program 
recorder are familiar with the record 
and play tones sounded as an in- 
dicator before data input or output 
to tape. All users should be familiar 
with the chirp of keyboard feed- 
back. This feature lends a surer 
"feel" to the keyboard than that 
found with other computers. 

These features are, essentially, 
well-designed and helpful. 
However, I've discovered that there 
are times I wish I could fit a silencer 
onto my ATARI® 800. Late night 
editing sessions or programming 
when my roommate is trying to 
catch forty winks have caused fric- 
tion. Certain programs I use very 
frequently, like the A TARI® Word 
Processor, seem to exploit the 
feature to a point beyond distrac- 
tion. These features are helpful in a 
noisy office environment, but seem 
a bit heavy-handed in a quiet work 
area at home, the most common en- 
vironment for the ATARI®. I nearly 
discontinued exploration of a hi-res 
adventure because the program con- 
tinually prompted for pressing 
RETURN with a long, shrill "blat" 
— shades of operant conditioning! 
Is it too much to ask to be able to 
turn the thing on and off at will? 

What could be simpler than the 
installation of a single pole, single 
throw switch to cut out the speaker 
when desirable? A "take-aparter" 
since earliest childhood, I had 
already snooped around a bit inside 
the ATARI® , and knew how easy it 
really would be. But, I still had a 



problem. The mere thought of snip- 
ping wires or drilling holes in my 
pristine machine made the hairs on 
the back of my neck stand on end. 
Also, though my warranty had long 
since expired, I wasn't happy with 
the idea of doing anything that 
couldn't be undone. Service people 
can be put off quickly when they see 
user modifications. I determined, 
rather wistfully, that I could live 
with the buzzers. 

Then, while staring at all the little 
packages hanging on the wall of a 
nearby Radio Shack, I made a 
fascinating discovery — I saw a 
product called "two prong connec- 
tors," catalog number 274-342 — 
$2,49 for a package of six. I noticed 
that the fit would be quite close to 
the connector used on the 
ATARI® speaker. I then noticed 
"SPST micro miniature toggle 
switch," catalog number 275-624 — 
$1.59. Smaller than the smallest 
switch Radio Shack had stocked 
previously — it occurred to me that 
it would fit between the vent slots on 



the bottom of the ATARI®. I sud- 
denly envisioned a switch modifica- 
tion that was totally, and easily, 
reversible. 

The modification was a complete 
success. Now that I can toggle the 
speaker off, I realize it's something 
I should have done long ago. In case 
I need to bring the computer in for 
service, the modification can be 
shpped out in under five minutes. 

The Project 

If you wish to modify your 
ATARI®, you will need, in addition 
to the products Usted above, about 
two feet of bell or other Ught wire, a 
flat blade and Phillips screwdriver, 
soldering iron and solder, and a bit 
of tape. 

Snip the wire into two ten inch 
lengths. Then, take one of the wires 
and snip it into two five inch 
lengths. Strip a quarter inch of in- 
sulation off the ends of all the leads. 
Twist the shorter wires onto the 
longer wire in the manner indicated 
in Figure 1. This will make the 
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10 in. 



amii u "" 



a UHItttlHii-- 



"i i. r . » . i '« vH Ili nUH Il ^\ l„. 



^qbee: 



J | l "' ,3^ W^M. 



rogm 



yiiiwg^ 




Switch 



SoftSide 



A 79 



>lTARr 



modification easier to slip in and out later. Next, solder two 
connectors and the switch to the wires as indicated in the 
diagram. Unscrew all collars around the neck of the switch. 
Notice you are using only the socket connectors, not the 
plug connectors. Leftovers can be saved for another 
project. 

Now you are ready to begin the operation. Flip your 
ATARI® over onto something soft, Uke a pillow. Unscrew 
the five screws that hold the bottom panel, and lift it toward 
you. Notice that the controller ports must be cleared in 
order to remove the panel. Can you believe how small that 
speaker is? You now know another reason why you're lucky 
to own an ATARI®. You don't depend on that Httle thing 
for all your sound effects. To disconnect the speaker, pull 
gently on the connector. Once the speaker is disconnected, 
remove it from the machine. 



Figure 2 
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Contacts 



Original connector 



Figure 3 




Switch will be placed here 



Figure 4 
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FORM OF PAYMENT 

USA 

VISA, MasterCard, certified checks, nnoney orders and personal 
checks are accepted. 

Canada/Mexico 

The preferred method of payment Is by VISA or MasterCard. A 
bank check Is acceptable If It has been preprinted for payment 
in U.S. dollars. No personal or company checks accepted. 

Other Foreign Orders 

Payment must either be by a bank check drawn on a U.S. bank 
payable In U.S. dollars or by affiliated bank credit cards of VISA 
or MasterCard. 

GUARANTEE 

Ail software Is guaranteed to load and run. If you experience dif- 
ficulties with the product within 30 days, it may be returned for 
replacement. Send your properly protected tape or disk to the 
attention of the Customer Service Representative and Include 
your name, address, and the reason it Is being returned. 
LIABILITY 

All software is sold on an as-ls basis. SoftSide assumes no 
liability for loss or damage caused or alleged to be caused 
directly or Indirectly by products sold or exchanged by them or 
their distributors, including, but not limited to, any interruption 
in service, loss of business or anticipatory profits or consequen- 
tial damages resulting from use or operation of such software. 

PRICES 

Prices are subject to change without notice. We are not respon- 
sible for typographical errors. 

Unless otherwise noted in a published advertisement, the 
following prices are in effect as of this Issue: 



SoftSide Magazine (yr) 



USA/Canada 
APO/FPO 

$30 

USA 
APO/FPO 

$75 
$39 
$125 
$64 



USA/Canada 

FIRST CLASS 

Mexico 



$40 

Mexico 
Canada 

$95 

n/a 

$145 

n/a 



Other 
Foreign 

$62 



Other Foreign 

$125 
n/a 
$175 
n/a 



CV (year) & magazine 

(6 mo.) 
DV (year) & magazine 

(6 mo.) 

Adventure of the Month 
Month (6 mo.) 

Cassette $29 $35 

Disk $49 $55 

BACK ISSUES 

Minimum order for magazines only — 3 issues. There is no 
minimum order for magazine/media combinations. 
Price includes shipping to the 48 states, APO/FPO only. Alaska, 
Hawaii, Puerto Rico, and ALL foreign orders — postage is addi- 
tional. 

ALL Foreign orders and all magazine/media combination orders 
— Order directly from SoftSide, 6 South St., Miiford, NH 03055. 
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Orient the connector so that it 
matches the view in Figure 2. Using 
a screwdriver or toothpick, press 
down on the silver tongue on the top 
of the plastic connector, as you 
gently pull the wire from the side. 
Don't force anything! When you've 
pressed the tongue down far 
enough, the contact will slide right 
out. Pull both contacts out of the 
plastic container. 

Next, take the bottom panel you 
removed earlier and hold it so that 
the vents are at the bottom, as 
shown in Figure 3. You will mount 
the switch in the left-hand vent, 
where there is room to spare, and 
nothing nearby that might get 
shorted out. Insert a flat blade 
screwdriver between the two vent 
slots where the switch will be 
mounted. (It's a good idea to stay 
over to the left — this will make the 
switch easier to reach.) Gently twist 
the screwdriver to spread the slot, 
then press the neck of the switch 
through. The plastic will have to 
bend a bit to accommodate the 
switch. Put on a washer, then screw 
on the lock nut to fasten the switch 
in place. 

The final installation will be 
facilitated by repositioning the back 
panel so that the computer looks 
like an open valise. This way, the 
wire between switch and speaker 
will not be stretched. First, press the 
speaker contacts into the middle 
connector, as indicated in Figure 4. 
The speaker can now be reposi- 
tioned in its place. Gently connect 
the far socket to the speaker leads 
from which you removed the 
original connector. Spreading them 
a bit may insure a tight fit. Finally, 
tuck the wire away under the 
keyboard post and away from 
boards and the speaker itself. 
There's enough room on that side of 
the computer to insure that the 
modification will not interfere with 
any other hardware. 

You may wish to tape the original 
connector to the wire itself. Then, 
should you wish to remove the 
modification, the original connector 
will be right where you left it. 

Screw the back panel on, plug 
things back in, and run a test. You 
can easily use the keyboard 
REPEAT function in memo pad 
mode to do this. 

Listen. You can almost hear a pin 
drop! © 




The aliens have swept undefeated across the galaxy. 
You are an enterprising star ship captain — the final 
defender of space. 

As the aliens attac k, you launch a deadly barrage of 
missiles. Flankers swoop down on your position. 
Maneuvering to avoid the counterattack, you 
disintegrate their ships with your magnetic repellers. 

As your skill improves, the attackers increase their 
speed. And as a last resort, the aliens use their 
invisible ray to slow the speed of your missile 
launcher. 

GALACTIC CHASE provides Atari owners with the 
most challenging one or two person game in the 
galaxy. 



® 



A 

ATARI 

Atari 400/800 16k. Written in machine language. Requires joysticks. 

Payment: Personal Checks — allow three weeks to clear. 

American Express, Visa, & Master Charge — include all numbers on card. Please include phone 
number with all orders. 24.95 for cassette or 29.95 for disk plus 2.00 shipping. Michigan 
residents add 4%. 

Check the dealer in your local galaxy. Dealer inquiries encouraged. 

Galactic Chase (c) 1981 Stedek Software. 
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COMPUTERS 



Dept S. 
26618 Southfield 
Lathrup Village, Ml. 48076 
(313) 559-5252 
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Deadline 



Reviewed by Eric F. Wolcott 



from Infocom, 55 Wheeler St., 
Cambridge, MA 02138. System re- 
quirements: Disk drive and 32K 
ATARI® 400/800, 32K Apple 
II + ™ or 48K IBM® PC. Suggested 
retail price: $49.95. 



I was in the shower when the 
phone rang across the room. Curs- 
ing and dripping, I stumbled over to 
it. "Yeah," I growled, thinking this 
had better be good. It was a man 
with a problem. Yeah, I know, 
everybody has problems, but his 
was different. His was murder. 

8:00 AM. I arrived at the Robner 
house thinking, "Why me?" Mr. 
Robner had been found dead in a 
locked room. Official cause of 
death was self-induced overdose; 
verdict, suicide. My instincts told 
me that the officials were wrong in 
this case. It was murder, but I would 
have to prove it. I thrive on adversi- 
ty. This case was mine and I was go- 
ing to finish it. If I didn't, the 
murderer would strike again. I was 
working with a Deadline. 

Deadline, by Infocom, is a fan- 
tastic text adventure. Although 
some people believe that a text 
adventure cannot provide the in- 
volvement of a video adventure, 
many staunch adventurers believe 
the text adventure is the only way to 
go. Deadline is the text adventure 
for both groups. It provides a sense 
of close involvement, casting you in 
the role of a police inspector called 
in to solve a tough case. The novel 
packaging, good story line, and full 
sentence input combine to make an 
enthralling game. 

When you get the package, you 
will be holding the official brown 
case folder containing the Robner 
file. Inside, you will find the cor- 
oner's death report, the detective's 
report, police transcripts of inter- 
views with the household, a 
photograph of the body's place- 
ment. Exhibit A — a packet of pills 
found near the body, and the In- 
spector's Case Book. All these items 
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contain necessary background in- 
formation for solving the case. 

The Inspector's Case Book is a 
well laid out, easy-to-read manual. 
It explains how the time element 
works in the game and how to make 
it work for you. It also describes 
how to use the police laboratory, 
handle the evidence, and use the 
stenographic services to get a 
transcript of your activities. Never 
does it refer to the game or player, 
always it refers to the case and the 
Inspector. In short, the Case Book 
is a complete set of rules that re- 
mains, at all times, in character with 
you. 

The story line is excellent. It reads 
hke a Micky Spillane mystery. There 
are full page descriptions of all the 
major areas on the Robner estate — 
standard fare for a text adventure. 
But Deadline goes one step beyond. 
You will not be the only person ac- 
tively on the scene. Members of the 
Robner household will continue 
their daily routines, albeit disrupted 
somewhat by the demise of Mr. 
Robner. During your investigation 
you may interact with any one of 
these people. Talk to Mrs. Robner, 
the bereaved widow, as she eats 
breakfast. Follow Mrs. Rourke, the 
housekeeper, as she goes on her 
rounds. If you hurry, you will even 
find some clues before Mrs. Rourke 
innocently takes them away. The in- 
habitants of the Robner home will 




also interact with you. This provides 
a sense of reality not usually found 
in adventures. 

The full sentence input should be 
heralded as the greatest advance in 
adventure technology to date. In- 
stead of commands such as USE 
PENCIL and GET FLASK, you 
may employ full sentences contain- 
ing many words. Commands like 
PICK UP EVERYTHING or PICK 
UP EVERYTHING EXCEPT THE 
NEWSPAPER ON THE FLOOR 
are easily understood. The first 
command can be found in most 
adventures, the second is peculiar to 
Deadline. Now, does this mean that 
to move around you have to say 
WALK BRISKLY NORTH? No, N, 
S, U, D all work. Things need not 
become overly complicated if that is 
your wish. To further aid in your in- 
vestigation, many of the necessary 
common verbs are explained in the 
Case Book. 

Because of the story hne, packag- 
ing, and sentence input. Deadline is 
an easy-to-use, enthralling game. 
Instead of a barbarian walking 
through a dead cavern, I was a 
police inspector moving through a 
hostile world. It was Hke a good 
book, and I was caught up in the 
plot. Adventurers from both camps 
should enjoy Deadline for the ex- 
citement and involvement it offers. 
Now excuse me, I have a Deadline 
to meet. O 
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SECOND ANNUAL 

PhDEMJ!:! CDMPJTEfl EXPQ 

ONE PLACE 
TO SEE IT ALL! 



Mini and micro computers, software, graphics, 
data and word processing, telecommunications, 
peripheral equipment, supplies and computer 
services — you'll find it all at the Phoenix 
Computer Expo. September 30 - October 2 
at Phoenix Civic Plaza. 

You'll be able to sit down with a computer to 
evaluate its ability to meet your needs whether 
business, educational or for your home. 

Throughout the three days. Hands-on workshops 
sponsored by RADIO SHACK, APPLE COMPUTER 
INC., AND IBM CORPORATION will be 
conducted. 

Attend seminars designed to advise you where 
computer technology is heading and its influence 
on your life today and tomorrow. 

And you'll enjoy yourself with computer music, 
Reggie the Robot, computer art and a host of other 
electronic for home and office equipment. 
For further information contact: 
ludco Computer Expos, Inc. 

P.O. Box 963 • Scottsdale, AZ 85252 

(602) 990-1715 or (800) 528-2355 (outside Arizona) 

CO-SPONSORED BY DPMA PHOENIX CHAPTER 
DATA PROCESSING MANAGEMENT ASSOCIATION 



SEE, LEAI^N, PAimCIPArE 
AND ENJOY! 



nmm CQivipJTEn expo 



Phoenix Civic Plaza 

225 East Adams 

Thursday, September 30- 10 a.m. -8 p.m. 
Friday, October 1 - 10 a.m. - 8 p.m. 
Saturday, October 2 - noon - 6 p.m. 

Admission $7.50 per person and $3.00 for children. 
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SAVE 

$2.50 



Present this coupon at the 
Phoenix Civic Plaza box 
office and save $2.50 on 
one adult admission. 



UP PERISCOPE 





by Ron Potkin 

Up Periscope is a graphics 
wargame for a TRS-80® Model I or 
III with 32K RAM and disk drive. It 
is included as the bonus program on 
this month's TRS-80® Disk Version. 

PROLOGUE 

The following conversation took 
place between the Admiral of the 
Fleet and his radio officer in the 
communications center: 
R.O.: Signal coming through. Sir. 
Adm: Read it to me. 
R.O.: Proceed at once to escort con- 
voy vessels across the sea from 
Westside to Eastside. Enemy sub- 
marines lying in the area. It is essen- 
tial that at least three get through. 
There's a new computer in the 
operations center — A 16K Level II, 
Sir. The programmer says we merely 
have to power it up, put the disk in 
the drive and select "UP 
PERISCOPE" from the menu. 
Adm: What else? 

R.O.: We can move in six direc- 
tions. Sir. When it's your turn, each 
convoy vessel may move three hex in 
any direction. Each destroyer has 7 
moves available. Moving one hex, 
turning, reversing, sonar and drop- 
ping a depth charge will each cost 
one move. Each destroyer has a 
complement of 10 depth charges. 
Adm: Turns? Moves? What is this? 
R.O.: We have to give the enemy an 
opportunity to shoot back, Sir. In- 
cidentally, they move first. 
Adm: What do we know about the 
submarines? 

R.O.: We had some luck there, Sir. 
Apparently the programmer de- 
signed those as well. They can lie at 
three levels: on the surface, 
periscope depth, or on the bottom. 
They are each fitted with two tubes 
and carry 10 torpedoes. Each will 
have 6 moves. Moving one hex at 
periscope depth costs two moves. 
Moving on the surface, diving, ris- 
ing and firing torpedoes each cost 
one move. They can only fire at 
periscope depth. 

Adm: Sounds pretty dangerous. Is 
our sonar equipment in order? 
R.O.: Yes, Sir. But there are snags. 
Adm: What's that? 



R.O.: We will not get a sounding if 
the sub is lying on the bottom and 
also, it cannot distinguish between a 
submarine and our own vessels and 
torpedoes. 

Adm: How effective are our depth 
charges? 

R.O.: I will check. Sir. (pause) The 
programmer says that dropping a 
depth charge immediately over a 
submarine will destroy it. Sub- 
marines in any of the hex surround- 
ing that hex will be forced to the sur- 
face. And, there is a 50 percent 
chance that a tube will become 
inoperable. 

Adm: That's good; and if they are 
on the surface can I ram them? 
R.O.: Yes, but only with the sharp 
end, Sir. The convoy vessels may 
not. 

Adm: O.K.. By the way, what is a 
hex? 

R.O.: The sea is divided into 500 
imaginary areas. Each is a regular 
six sided polygon. We don't have to 
concern ourselves too much with 
that. The main purpose is to in- 
dicate the direction for movement 
and so on. 

Adm: How far will the convoy have 
to go? 

R.O.: The sea is 32 hex wide from 
East to West. That means it will 
take them at least ten turns to get 
across. The torpedoes could well 
mean that it will take longer. You 
may know, Sir, that the Isle Of Rad- 
sha lies in this sea. There are many 
inlets where the subs can hide. 
Adm: Yes, naturally. 
R.O.: There is one last point. I 
hardly know how to tell you this. 
Adm: Well? 

R.O.: The programmer says that he 
had difficulty accommodating all 
six directions on the screen. If a 
destroyer lies North-South, it's 
O.K.. But, if we turn in one of 
the other four directions, the shapes 
are not right and would we mind 
scrunching up a bit! Apparently the 
monitor can't handle diagonal lines. 
Adm: It's not like the old days! Pass 
all the information we have along to 
the fleet and let's get under way. 
R.O.: Aye, Aye, Sir. 
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At this point, a top priority 
message is received from the Sub- 
marine Commander. It reads: 
"I understand that I must command 
my pack using a TRS-80® computer. 
I do not have one. May I use yours? 
Under the laws of computerized 
combat, I trust that you will adhere 
to the rules and not look when I 
make my moves." 

The next few moments are dif- 
ficult to describe coherently. 
However it has since been learned 
that the Admiral is recovering 
satisfactorily. 

1. Objective 

The Submarine Commander wins 
if the number of convoy vessels re- 
maining plus the number that have 
crossed the sea successfully is less 
than 3 (or any number up to 6 
depending on the difficulty level). 

The Fleet Commander wins if all 
submarines are destroyed or at least 
3 convoy vessels cross the sea. 

2. Vessels 

The Fleet Commander has 6 
destroyers and 6 convoy vessels. 
The Submarine Commander has 10 
submarines. 

3. Order of Play 

(a) All submarines appear on the 
screen. 

(b) The Submarine Commander 
moves all, some or none of his 
pieces. This will include the firing of 
torpedoes at periscope depth. 

(c) All submarines, other than 
those on the surface, are removed 
from sight. 

(d) The Fleet Commander now 
moves all, some or none of his 
pieces — destroyers first, followed 
by his convoy. 

(e) All torpedoes move one hex in 
the direction they were initially 
fired. 

(f) An update of the number of 
pieces is made and the winner, if 
any, determined. Until there is a 
winner, steps (a) to (f) are repeated. 



4. Starting tlie Program 



You will be asked "HOW MANY 
VESSELS MUST GET THROUGH 
(1-6)?". Press any number from 1 to 
6 and then ENTER. The second 
question will be "HOW MANY 
SUBMARINES (1-10)?". Press any 
number from 1-10 and press 
ENTER. 

After a short pause, a state- 
ment of the current number of ves- 
sels will appear, followed by 
"SUBMARINE COMMANDER'S 
TURN". Press ENTER. At the end 
of his turn, the number of vessels 
will again be reported, followed 
by "FLEET COMMANDER'S 
TURN." Press ENTER again. This 
is important, as it enables the oppo- 
nent to turn away before the map 
appears. 

5. Movement 

Each piece is moved in order. 
When it is due to be moved, it will 
flicker and show the number of 
moves left. A player may, during his 
turn, move his pieces up to the limit 



of moves available (assuming they 
do not hit a torpedo). 

All actions cost one move with the 
exception of submarines at 
periscope depth, where a move from 
one hex to an adjacent hex costs two 
moves. 

To move a piece, other than 
destroyers, imagine a six-hour clock 
(see Figure 1). 

To move Northeasterly, press "1", 
Southeasterly, press "2", to move 
South press "3" and so on. 

The same method is used to in- 
dicate the direction for sonar, depth 
charges or torpedoes. 

The following options are 
available to both players: 

(a) NEXT: To move on to the 
next piece before the present piece 
has expended all its moves ... Press 
"N" 

(b) DONE: If you decide that you 
have finished your turn even though 
pieces have not yet moved ... Press 
(ENTER) 

Note that if you have any pieces 
on "HOLD" you may still move 
them. 

(c) HOLD: The pieces will nor- 
mally flicker in a pre-defined order. 



turning 




Figure 1 



If you wish to move in a different 
order, so that you can more easily 
clear a congested area ... Press "H" 
The remaining options vary by 
type of vessel: 

Submarines 

(a) Press a number from 1 to 6 to 
move one hex as described above. 

(b) Press "T" to fire a torpedo. 
The piece will flicker "TPDO". 
Press 1 to 6 to indicate direction. 
Note that the torpedo is invisible un- 
til the Fleet Commander has fin- 
ished his turn. (The torpedo was 
fired at periscope depth... It takes a 
moment to reach the surface.) 

(c) Press "U" to move up one 
level. 

(d) Press "D" to move down one 
level. 

The piece will flicker "HOW?" If 
you press "U" and it is on the sur- 
face, or if you press "D" and it is 
on the bottom. 

Convoy Vessels 

The only option available is to 
move from one hex to another. It is 
the only piece that may move off the 
board. This occurs only on the East 
edge indicating that it has made a 
successful crossing. 

Destroyers 

The bow of the destroyer (the part 
that flickers) is the reference point 



when indicating directions. The 
clock method is not used for move- 
ment. Instead, a number from 1 to 6 
will indicate the number of hexes to 
move in the direction it is presently 
pointing. Any submarines lying in 
its path are rammed and destroyed. 
Other options are: 

(a) Turns: When turning, the bow 
remains stationary and the stern 
moves to bring the ship around into 
the new direction. Port and star- 
board, left and right have been 
avoided. Instead, it makes either 
"C" (clockwise) or "A" (anti- 
clockwise) turns. If this is confus- 
ing, use " + " (without shift key) or 
"-". So, if the stern is at 4 o'clock 
then " + " or "C" moves it to 5 
o'clock. Similarly, if the stern is at 3 
o'clock then "-" or "A" moves it to 
2'clock. (See Figure 1) 

(b) Reverse: To move the de- 
stroyer full astern one hex... Press 
"R". 

(c) Sonar: To search for sub- 
marines or torpedoes, press "S". 
The piece will flicker "SONAR". 
Press a number from 1 to 6 to in- 
dicate direction. The bottom of the 
screen will indicate whether contact 
was made and how far away the ob- 
ject lies. 

(d) Depth-Charges. To drop a 
depth charge, press "D". The 
piece will flicker "DCHG". Press a 
number from 1 to 6 and a depth 
charge will be dropped one hex 
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away from the bow of the ship. Any 
submarine or torpedo in that hex 
will be destroyed. Any submarines 
in surrounding hexes will be forced 
to the surface. 

6. Special Feature 

No two pieces may occupy the 
same hex. When a destroyer or con- 
voy vessel enters a hex occupied by a 
submarine lying below the surface, 
the submarine is moved to a new 
location. Using the sub hex as the 
reference point, a search is made for 
an empty hex starting at 1 o'clock. 
If 1 through 6 are occupied, hexes 
two spaces away are searched. If all 
are occupied, the submarine is 
destroyed. This could happen 
around the island or at the edge of 
the board. 

7. Table of Outcomes 

The table below left may be con- 
sulted to check all outcomes when 
one object contacts another. The 
column indicates the piece being 
moved; the row is the piece 
contacted: 

DESIGN NOTES 

It is difficult to know who has the 
advantage in this game. It may be 
that the submarines have the edge; 
hence the reason for being able to 
change the level of difficulty. 

The destroyers are fairly power- 
ful. The sonar and the abiUty to 
bring submarines to the surface with 
a near miss does give them plenty of 
clout. Their best defense is to find 
and destroy, not waiting for the sub- 
marines to move in. Once the sub- 
marines close in on the convoy, they 
will normally cause considerable 
damage. 

The submarines have a con- 
siderable advantage. Their strategy 
should be to move slowly, always 
ending their turn on the bottom. 
Above all, they must remain well 
apart and not fire torpedoes unless 
they are confident they can get well 
away. The appearance of a torpedo 
is, of course, their greatest give- 
away. © 
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Alien Defense 



Reviewed by Andre Chen 



By Larry Ashman (Soft Sector 
Marketing, Inc., 6250 Middlebelt 
Road, Garden City, MI 48135.) 
System requirements: TRS-80® 
Model I or III with 16K (cassette) or 
32K (disic). Suggested retail price: 
Cassette — $15.95, Disit — $19.95. 

Alien Defense is a fast-paced 
Machine Language game that plays 
much like the arcade game, De- 
fender. In Alien Defense, you thrust 
across a landscape in search of 
aliens to obliterate or humans to 
rescue. 

You propel your ship horizontally 
by thrusting and also control the 
vertical movement in order to avoid 
various obstacles. As you move 
across the landscape, any of six dif- 
ferent kinds of aliens may attack 
you with missiles and bombs, or just 
try to collide with you. The land- 
scape wraps around so if you pass 
by an alien, it will appear again 
should you later pass over the same 
location. 

Each variety of aUen has its own 
special characteristic and style of at- 
tack. The "Landers" attempt to 
land, pick up your humans, and 
carry them off into space where they 
become mutants. "Mutants" 
bounce wildly up and down, making 
them very difficult to hit. 
"Bombers" drop rows of stationary 
bombs which impede your move- 
ment across the landscape. 
"Cruisers" maneuver around your 
path and, without warning, turn 
around and attack head-on. They 
may follow you for a long time, 
forcing you to stay on full thrust, 
until you either hit another alien, or 
try something foolish like reversing 
direction and firing. This maneuver 
requires guts, concentration, and a 
fast firing finger. "Pods," which 
are the most dangerous aliens, send 
missiles at you rapid-fire. Blasting 
the "Pod" won't solve the problem 
because when hit, it bursts into 
several fast Uttle "S warmers" that 
are almost impossible to evade. 

As if avoiding aliens weren't 
enough of a challenge, another duty 




of a good defender is to save the 
humans. The "Landers" continual- 
ly try to kidnap the humans. Your 
job, as a defender, is to shoot the 
"Lander," catch the falling human, 
and return him to the surface. This 
is a tricky operation, especially 
when being tailed by a "Cruiser," 
but if you succeed, you will be 
generously rewarded with points. If 
all fifteen humans are gone, you are 
transferred to space duty where you 
face an unbehevable number of 
ahens. 

To succeed in A lien Defense (you 
never win), the most important goal 
is to keep moving. Stopping or mak- 
ing frequent reversals leaves you 
vulnerable to being rammed by a 
"Cruiser" or hit by one of the 
alien's homing missiles. 

The controls used are: I) — 
Change Direction, 2) — Move UP, 
3) — Move DOWN, 8) — Thrust, 9) 
— Fire, SPACE BAR) — Smart 
Bomb, ENTER) — Hyperspace. 
Operating seven controls skillfully 
takes practice, but they are conve- 
niently located and designed for 
maximum efficiency and minimum 
fatigue. 

Alien Defense is one of the first 
arcade games to use Model III 



special characters extensively. It 
uses a combination of graphic 
characters for the aliens and 
humans. The disk version includes 
voice effects in addition to the 
sound effects which come on the 
cassette version. Its extensive 
vocabulary includes the name of the 
game, author, and pubhsher during 
the attract mode, "Coward" when 
you use hyperspace, and "You're in 
trouble now!" when all humans are 
gone. The disk version also saves all 
of the current high scores onto disk 
if the user wishes. (Some games save 
the high score after every game, 
which necessitates keeping the disk 
in the drive at all times, increasing 
the risk of disk damage during a 
power outage.) 

Alien Defense is an addictive 
game. It's never boring. The dif- 
ficulty, the very fast pace, the dif- 
ferent kinds of aliens, and the many 
control options make it exciting, 
challenging, and totally engrossing. 
It goes beyond the "move and 
shoot" type of arcade game. You'll 
be playing it for a long time, getting 
better every time, but never quite 
mastering it. Anyone who enjoys ar- 
cade games can make a sure bet on 
this one. © 
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NewScript Version 7,0 



Reviewed by Harry Temple 



From Prosoft, Box 839, North 
Hollywood, CA. For TRS-80® 
Models I and III. Suggested retail 
price: disk — $124.95. 



NewScript 6.1 was reviewed by 
Joseph A. Breton in the April, 1982 
SoftSide. The following is a review 
of an updated version of the word 
processing package. 

You probably won't believe what 
NewScript 7.0 can do, but you 
should! This word processor takes 
the TRS-80® to a new level of text 
handling. It organizes and 
remembers indexes and tables of 
contents; scrolls right or left, up or 
down, by line or page; has an in- 
stantly executing editor; supports 
almost every printer; does propor- 
tional printing, form letters and 
mass mailings; accepts graphics 
from the keyboard; has typeahead 
and printahead buffers, and runs a 
cassette recorder for dictation. It 
also inserts and deletes, does global 
change and replace, runs on a 
Model I or a Model III without 
changes, is integrated to a spelling 
checker and graphics editor, has a 
useful HELP command, superb 
documentation and user sup- 
port. (Pant, pant.) 

When you initialize NewScript 
7.0, you tell it about your printer 
and disk operating system. New- 
Script 7.0 then automatically ad- 
justs itself. It will even load its own 
serial printer driver. It asks what 
you want to do: edit, print, run a 
spelling checker or advanced 
graphics editor, print mailing labels, 
check directories, reinstall 
NewScript, or exit to DOS or 
BASIC. (The speUing checker, ad- 
vanced graphics editor and mailing 
labels programs are optional add-on 
modules.) 

If you want to edit, NewScript 7.0 
loads EDIT, a Machine Language 
program with a BASIC front end. 
You can't type too fast for EDIT. 
There is no keybounce. It scrolls up 
or down, left or right. If you press 



PBS 






CLEAR (the Control key), the cur- 
sor changes to a graphics "C". If 
you press the left or right arrow, the 
text moves horizontally. If you press 
"F" or "B" while the "C" cursor is 
displayed, the text immediately 
moves forward or backward one 
page. Forget the special keys needed 
with other word processors. Want 
to insert? Type Clear, "I". Delete a 
character? Type Clear, "D". Delete 
a word? Type Clear, "W". Editing 
functions are a combination of the 
Clear key and one other, easily 
remembered key. 

Format commands have default 
settings, but you can alter them. 
NewScript 7.0 is very flexible. 
Besides freedom of cursor move- 
ment, block moves, global deletion 
or insertion, forward or backward 
searching, and automatic 
wraparound, you can mark entries 
for an index or table of contents. A 
utility program lets you enter index 
keywords and marks your text files. 

NewScript 7.0 uses imbedded 
control words to format text. For 
paragraphs, type ".p" at the begin- 
ning of a Hue. To adjust line length, 
type ".11", followed by the desired 
Hne length. 

NewScript 7.0's approach to text 
formatting is logical. Rather than 
measuring in variable lines and 
spaces, it measures in standard 



inches — a common sense solution 
to a problem that has troubled other 
word processors. 

NewScript 7.0 overcomes 
memory limitations. You can create 
documents larger than memory by 
chaining files together, and even 
link files between disks. EDIT 
works in memory and stores your 
text on disk when you press Clear 
and "S" at the end of the session, 
or after a specified number of text 
changes. The text formatter pro- 
cesses text files. If a file gets too big 
to edit, a utility chops the file into 
segments and chains them together. 

Since NewScript's author, Chuck 
Tesler, has modules to perform 
various functions (EDIT does 
editing, SCRIPT does printing), 
there is room for additional features 
within each module. When you 
print, you don't need the editor. If 
you use the memory the editor oc- 
cupied, you can write a super text 
printer. 

SCRIPT'S video display looks 
almost like a printed page, so you 
can check your "print" without us- 
ing paper. If you revise a lot, do it 
on video. Then, when your docu- 
ment is perfect, print it. You'll find 
you'll print text on paper less than 
with other programs. 

NewScript 7.0 supplies a print 
routine that shows you what will be 
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printed, so mistakes can be corrected before printout. If you 
need to insert text during printing, at the end of printing, or 
both, NewScript 7.0 can meet your needs. You can also edit 
a document on its way to the printer and enter text from the 
keyboard while printing. 

NewScript 7.0 can number text lines as it prints them, or 
make a number of copies. It can use sheets or continuous 
forms. NewScript 7.0 can triple space. SCRIPT allows you 
to begin printing at any page of a document. The printer 
spooler improves throughput. There are optional propor- 
tional spacing packages for Diablo, Starwriter, Qume or 
Spinwriter printers. (Some Daisy wheel printers are already 
supported.) 



**It not only tells you what to 
do when things work right, but 
gets you out of trouble when 
they don't." 



NewScript 7.0 is very user- friendly. You always have the 
option of bailing out. If you invoke EDIT when you really 
want SCRIPT, it's easy to get where you want to be. If you 
give the wrong filename, NewScript 7.0 asks for the right 
one and then straightens things out. If you make a mistake 
while editing, the "Whoops" command gets you back to 
square one. 

NewScript 7.0 is great at error trapping. If you in- 
advertently hit the BREAK key while editing, the screen tells 
you how to recover. If the system reboots and your text is 
still in memory, type "BASIC*" (on most operating 
systems), press BREAK and type "Go To 999". Text in 
memory is then saved under a temporary filename. You use 
EDIT to recover it. This is just one example of the thought 
that went into NewScript 7.0 — it not only tells you what to 
do when things work right, but gets you out of trouble when 
they don't. 

NewScript 7.0 takes a little time to learn because it's so 
powerful. You can do tabs, super and subscripts, and half 
line feeds in forward or reverse directions. You can 
hyphenate, alter the proportional spacing method, use dou- 
ble width or tiny characters, itahcs — almost anything you 
can think of, providing that your printer allows it. The 
user's manual is superbly written, and sets a new standard in 
the Industry for documentation. Chuck Tesler also responds 
quickly to letters for help. When you buy NewScript 7.0, 
you not only get programs and documentation, you get sup- 
port from the author himself. 

In summation, NewScript 7.0 has the features you want 
in a word processor: ease of use, error trapping, super print- 
ing, a print spooler, superb documentation, and adaptabil- 
ity to many printers and operating systems. NewScript 7.0 is 
a standard against which other TRS-80® word processing 
programs will be judged. G 



ATTENTION 

AUTHORS 



SoftSlde Publications is actively seeking 
program, article and review submissions for 
the TRS-80®, Apple™ and ATARI® home 
computers. 
• Programs — SoftSlde has alv\/ays been 
the leader in the field of BASIC softv\/are. 
BASIC remains our specialty. However, with 
the advent of Disl< Version (DV), we can now 
also offer an outlet for Machine Language 
and multiple language programs which do 
not lend themselves to printed versions. 
Games, utilities and educational software, 
as well as any other applications for the 
home computer user are preferred, although 
we will consider virtually any type of pro- 
gram. Hybrid mixes of articles and programs 
are also welcomed. 

Please be sure to include full documenta- 
tion of subroutines and a list of variables, 
also a brief article describing the program. 

• Reviews — Well written, informed reviews 
of all software for the systems we cover are 
a regular feature of SoftSlde. Reviewers 
should tal<e into consideration all aspects of 
a particular software pacl^age, from speed 
of execution to programming creativity to 
the estimated length of time that the pro- 
duct will hold the customer's interest. 

• Articles — We welcome article submis- 
sions of all types, but prefer those 
specifically geared to the home computer 
marl^et. We give our readers information as 
a first priority, but vary our content to in- 
clude some humor and commentary. 

All text, including documentation and 
descriptive articles for programs, should be 
typewritten and double-spaced. Extra 
monetary consideration will be given to ar- 
ticles and reviews submitted on machine- 
readable media (Scripsit, Super-Text II, etc.). 
Programs should be submitted on a good 
cassette or disl<. TRS-80® BASIC programs 
should function under both Level II and Disl< 
BASIC. 

Please be sure to pack your cassettes and 
disks carefully and to include your return address 
and phone number. 

Send to: SoftSlde Publications 

SUBMISSIONS DEPARTMENT 
6 South Street 
Mllford, NH 03055 

We regret that due to ttie volume we receive, we are 
unable to return submissions which do not include return 
postage. 

Be sure to send for our FREE AUTHOR'S GUIDE. It further 
outlines the specifics of our submission procedure. 

TRS-80 is a registered trademaric of Tandy corporation. 
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Back Issues 




August 1980 

"You Can Have Sound" — 

Apple 

"Rom the Robot" — Apple 

"Masters Golf" — ATARI® 

"Grand Prix" — TRS-80® 



September 1980 

"Developing Data Base I" — 
All Systems 
"Goal" — Apple 
"Barricade" — ATARI® 
"Concentration 11" — TRS-80® 



October 1980 

"Developing Data Base 11" 
All Systems 

"Moonlanding" — Apple 
"World Series" — ATARI* 
"Earth-Port 11" — TRS-80® 



November 1980 

"Developing Data Base 111' 
All Systems 
"Collision" — Apple 
"Trench" — ATARI® 
"Kriegspiel" — TRS-80® 



December 1980 

"Developing Data Base IV 
All Systems 
"Baseball" — Apple 
"Speedello" — ATARI® 
"Kidnapped" — TRS-80® 



SoftSide 



Fhey'reGone... 
rhey Gone Forever? 

If you like the programs, reviews, and programming information in tliis 
issue of S of tSide... think of wliat's waiting for you in past issues! 

Exciting games like Defense... Mini-Golf... Micro Man... 

Great Grapliics like Old Glory... Titan... Flight of the Bumblebee... 

PLUS... databases, utility programs, educational programs, and more! 

It's all here in the Back Issues of SoftSide magazine. And many of these 
issues are still available for your enjoyment. But not all. Several issues are 
SOLD OUT... others are available but supply is limited. 

So check out the issues and features Usted below and order today! 

Back Issues $3.50 ea.* 

Back Issue on cassette $9.95 ea.* 

Back Issue on disk $14.95 ea.* 

Back Issue w/ Enhanced Disk Version 

(contains an additional program) $19.95 ea.* 

Use our bind-in order card provided elsewhere in this issue to order your Back Issue 
copies, cassettes, disks and enhanced disk versions of SoftSide. 

For magazine orders only (minumum 3 issues) send order card and payment to: 
SoftSide Magazine 100 Pine Street, Holmes, PA 19043 

For magazine plus cassette or disk orders... and enhanced disk orders... send order card 
and payment to: SoftSide Magazine, 6 Soutli St., Milford, NH 03055 

*Prices good for USA orders only — for foreign pricing see page 80 for information. 



January 1981 

"Developing Data Base V" 

All Systems 

"Convoy" — Apple 

and TRS-80® 

"Angle Cannon" — ATARI® 

"Ship Destroyer" — TRS-80® 

Disk and tape only — available 



February 1981 

"Developing Data Base Vl"- 

All Systems 

"Miner" — All Systems 

"Mini-Golf" — ATARI® 

and TRS-80'' 

"Long Distance" — TRS-80'' 



March 1981 

"Developing Data Base 
VII" — All Systems 
"Strategy Sirike" — Apple 
and TRS-80* 
"Flags" — ATARI ^' 
"Volcano" — TRS-80® 



April 1981 

"Battle At Sea" — Apple 
"Convoy" — ATARI® 
"Dominoes" — TRS-80® 



May 1981 

"Galaxia" — Apple 
"Dodge" — ATARI® 
"Orienteering At Jacque's 
Coulee" — TRS-80® 



June 1981 

"Old Glory" — All Systems 
"Word-Search Puzzle 
Generator" — All Systems 
"Anallist" — TRS-80® 



July 1981 

"Chemistry Drill" — A" Systems 
"Volleyball" — Apple 
"Space Lander" — ATARI® 
"Word Wars" — TRS-80® 
Disk and tape only — available 



August 1981 

"Quest I" — All Systems 
"Shark" — Apple 
"Dairy Farming" — ATARI® 
"Compu-Sketch" — TRS-80® 



September 1981 

"FUp-It" — All Systems 
"Orienteering at Jacques 
Coulee" — Apple 
"Exterminate" — TRS-80® 
Enhanced Disk Version 
"NEWBASIC" — 
TRS-80® Mod-I 



October 1981 

"Leyte" — All Systems 

"Developing Data Base" — Apple 

"Character Generator" — 

ATARI® 

"EnvyrnTM" _ TRS-80® 

Enhanced Disk Versions 

"Super Dairy Farming" — Apple 
"Gameplay" — TRS-80® 



November 1981 

"Flight of the Bumblebee" — 
All Systems 

"Music Machine" — Apple 
"Music Programmer" — ATARI® 
"Music Editor" — TRS-80® 

Enhanced Disk Versions 

"National Anthems" — Apple 
"Volleyball" — ATARI® 
"Mean Checkers Machine" — 
TRS-80® 



December 1981 

"Titan" — All Systems 
"Aircraft Commander" — Apple 
"Developing Data 
Base" — ATARI" 
"Electronics 
Assistant" — TRS-80'" 

Enhanced Disk Versions 

"Bobsledding" — Apple 
"Survive" — ATARI'" 
"Konane" — TRS-80'"' 



January 1982 

"Gambler" — All Systems 
"Microtext I.l" — All Systems 
"Apple Capture" — Apple 
"Piazza Hotel" — ATARI® 
"TRS-Man" —TRS-80® 

Enhanced Disk Versions 

"Nuclear Submarine Adventure" 

Apple, TRS-80® 

"Death Star" — ATARI® 



February 1982 

"Space Rescue" — All Systems 
"Rubicube" — Apple 
"Defense" — ATARI® 
"Maze Sweep" — TRS-80® 

Enhanced Disk Versions 

"Andorra" — Apple 
"Kismet 11" — ATARI® 
"Help Package" — TRS-80® 



March 1982 

"Hexapawn" — All Systems 

"Magical Shape Machine" — 

Apple 

"Outer Space Attack" — 

ATARI® 

"Killer Cars" — TRS-80® 

Enhanced Disk Version 

"PEEKER/POKER" — Apple 

"Curse of the Pharaoh" — 

ATARI® 

"Warpath" — TRS-80® 

Disk and tape only — available 



April 1982 

"Microtext" — All Systems 
"Poster Maker" — Apple 
"Banner Machine" — ATARI® 
"Database" — TRS-80® 

Enhanced Disk Versions 

"Semaphore" — Apple 
"Renumbering for the 
ATARI®" — ATARI® 
"Screen Print" — TRS-80® 



May 1982 

"Solitaire" — All Systems 
"Micro-Man" — Apple 
"Cross Reference" — ATARI® 
"Ladders" — TRS-80® 

Enhanced Disk Versions 

"List Formatter" — Apple 
"Robot Battle" — ATARI® 
"Breakthru" — TRS-80® 



#30 

"Escape from the Dungeons of 
the Gods" — AH Systems 
"SWAT" — All Systems 
"Code Breaker" — Apple 
"Sabotage" — ATARI® 
"Piazza Hotel" — TRS-80® 

#31 

"C.A.T.S. Computer Assisted 

Testing System Part I" — All 

Systems 

"Puzzle Jumble" — Apple 

"Tunein" — ATARI® 

"DOTS" — TRS-80® 



Enhanced Disk Versions 

"Applesoft Extensions" — 
"Menu Plus" — ATARI® 
"Starbase Gunner" — TRS-80 



Apple 



SoftSide 



91 



educational software for the ATART educational software for tlie APPLE s 

n + 

c 
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A word-search program for the ATARI*. 
Move your character over the letters 
that spell your word. Words may be read 
from left, right, up, down, or diagonally. 

• For one or two players 

• Four levels of play 

• Comes with word base of the most 
frequently misspelled words. 

• Requires JOYSTICKS 



24K BASIC, Grades 1-8+ 



$17.50 



SPATIAL RELATIONS 

For the ATARI* 



Designed to help the child learn words 
tliat indicate size and placement Units 
coven big/small, tall/short, right/left, 
high/low, over/under, in/out Requires 
one joystick Minimal reading. SIDE 
TWO REQUIRES ISO READING ■ Use 
with Type-'N-Talk" speech synthesizer. 
16K BASIC, Preschool-1 .... $17.50 
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Type- rf -Talk™*** speech synthesizer (VOTRAX). S 
Let your computer talk with one of the easiest to use speech ? 
synthesizers on the market r 

Requires RS-232 interface $375.00 = 

1f.H.E.S.I.S. I 

P.O. Box 147 • Garden Qty, MI 48135 S 

or call (313) 595-4722 for C.O.D. g 

Some T.H.E.S.LS. software is now available for the APPLE 11+ S 

DEALER INQUIRIES WELCOME S 

Please add: S1.50 shipping/handling. $1.50 for C.O.D.. Mich. res. add 4% sales tax. | 

^ WRrrE FOR FREE CALALOG B 

*^ 'ATARI is trademark of Atari, Inc. "APPLE is trademark of Apple Computer, Inc. "•Type-Ti-Talk is rt 

Q lrademari< of Votrax. a 

ajBAqjos leuopEDnps ,,+|| 'siddV ^T) -">! aJB/tmos leuoiieanpa jmvxv ^^i^ 



Protect 

Your 

Investment 



Protect your SoftSide 
back issues (combined 
editions) with these 
sturdy binders. Covered 
with durable wood-grain 
vinyl, each 8/2 x 11 inch 
binder has an inside 
pocket and clear sleeve 
on the spine which 
you can label for 
easy identification. 
Each binder holds 
12 issues. 

8'/2xll $7.95 



Please include $2.50 per order 
for shipping and handling. 

See page 80 for 

ordering information & back 

issues bind-in card. 
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The Adventure 
System 



Reviewed by 
Mark E. Renne 



From The Alternate Source, 1806 Ada Street, Lansing, MI 
48910. System requirements: TRS-80® Model I or III with 
48K and disk drive. Suggested retail price: $39.95 Disk. 

Did you ever want to write a Machine Language adven- 
ture but didn't have the time to master Z-80 code? Well 
now, with The Adventure System, you can easily write a 
Scott Adams' style adventure without knowing a byte of 
code. 

This system is a BASIC program which creates a database 
which can be executed by a separate Machine Code adven- 
ture driver, also included. The completed adventure will 
operate with split-screen, save game capabilities, and other 
standard adventure game functions. You still have to con- 
trive the plot, objects, situations, actions and rooms, 
but you don't have to do the actual Machine Language 
programming. 

In this limited space, it would be impossible to fully 
describe the features and commands of the system — there 
are nearly 150 different commands and parameters. All the 
needed functions for most gamesters are here, including my 
favorite, DEAD, which kills the player and asks if he would 
like to play again. Aren't adventure games fun? You fill in 
all the rooms, with descriptions, and exits. You supply the 
objects and what must be done to each, i.e., RUB LAMP. 
This program does no logic checking, so most of your time 
is spent debugging the adventure. 

Program support is excellent. Not only is there a clearly 
written, more than 50 page manual, there is a user newslet- 
ter available, as well. At a cost of $12 per year, the newslet- 
ter contains a great deal of information for users, or 
"Auggies," as TAS (The Alternate Source) calls them. The 
program is also enhanced as users request changes. 

If you'd like to use this program to market an adventure 
you write, you must purchase the rights to the driver at a 
cost of $200. This gives you unlimited use of the system. 
TAS is also interested in marketing your adventures. (This 
might be an easier course for inexperienced marketeers.) 
Another option is to write your own driver program. 

Three adventures are also included in the package. Two 
are complete, full-length adventures and the third is a short 
adventure used to illustrate the available commands. You 
may examine any of the adventures' databases to discover 
techniques for your own creations. You can even use this 
program to decode an Adams' adventure. Another pro- 
gram, which must be purchased separately, allows programs 
to be transferred to tape for use in 16K machines. 

The easiest way to think of this program is as another 
language. As in any other language, learning the commands 
and syntax takes practice and patience. You're not going to 
open this package and write a 16K adventure overnight. 
Again, you will spend more time debugging than program- 
ming. On the plus side, commands are easy to understand 
and the program is simple to use. It allows even non- 
programmers to create an adventure that runs smoothly and 
quickly. Remember, however, that the secret to a great 
adventure is the plot, and good ones take time to create! 
This software package will provide you with an excellent 
tool; all you'll have to supply is the creativity. © 
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IMARKET/SIDEI 



GRAND OPENING 



SPECIAL — SUPER SALE 



VAULTS OF CYMARRON 

I ROOM GRAPHIC ADVENl 

OUR PRICE 

29.95 



ADVENTURE INTERNATIONAL 

ELIMINATOR 
STAR SCOUT 
ADVENTURES 1-12 
BIG 5 

SUPERNOVA 
ATTACK FORCE 
ROBOT ATTACK 
MED SYSTEMS 
DEATHMAZE 5000 
LABYRINTH 
ASYLUM 
COMPU-THINGS 
W/IZARD'S MOUNTAIN 
DARK STAR 
TOWER OF OHLANDOR 
ROMAN CONQUEST 




15.95 12.95 

15,95 12.95 

15.95 12.95 

1495 12.25 

14.95 12.25 

19.95 16.00 

14 95 12.00 

24,95 17.50 

19 95 14.50 

14 95 12.00 



AND MANY MORE 

SEND FOR FREE CATALOG/PRICE LIST 

470 CASTRO SUITE #207-ff3359 
SAN FRANCISCO CA 94114 



415-861-8966 



OS IS W(Z^\ 



APPLE PHYSICS 

11 Disks - 75 Programs - $203 



These programs contain extensive graphics. Each diskette 

has 5 to 10 programs requiring 48K memory with 

Applesoft, 

V 1 Vectors & Graphing $10.00 

SI2.00 
$12.00 
$12.00 
$15.00 
$20.00 



V 2 Statics 

V 3 Motion 

V 4 Conservation Laws 

V 5 Circular Motion 

V 6 Thermcxlyn amies 



V 7 Electricity 

V 8 Optics 

V 9 Atomic Physics 

VIO Solar System Astronomy 
VI I Stellar Astronomy 



$12.00 

$20.00 
$30.00 
$.10.00 
S.10.00 



Ask for Atari, IBM information 



AQUARIUM: This is an aquarium simulation in which 
the fish swim, breed, eal and interact. The full disk includes 
the Community Aquarium plus 4 games. 48K S25. 

DINOSAURS: 6 games and demos. Includes Dinosaur 
Matching. Dinosaur Kangman and Paddle Graphics. 

48K $15, 



CROSS FDUCATIONAI SOKTWARH 



P. O. Bo» 1.136 
Ruslon. I.A 71270 
.US-IS.I 8921 
rile loday for a KRHF C alalog. 



THE KtWIK CtRE \ / 

For S-80 Cassette Blues! * * ' 

ICVJIICCJS t (Model I, L«vel II, 4k-48lil 

A PROGRAMMER'S PROGRAM... FOR NOVICE OR 
EXPERT. NOT JUST A SIMPLE SPEED-UP I6»l«cl 
2x to 6i)... BUT ALSO MAHY EASY-TO-USE 
EHHANCEMENTS TO SUPPORT TAPING. 
FEATURESI SAVE, LOAD, VERIFY, SEARCH, 
CHAIN LOAD, CATALOG, AND TEST-HEAD 
OF BOTH 'BASIC AHD 'SYSTEM' PROGRAMS, 

♦ PASSWORDS * LONG TITLES ♦ DEBOUNCE 

♦ SELF 'BACKUP', and M0RE....»2A ppd US 
K:0S3 1 CkwiKoi" for Mod«l III, 4k-4ek) 

ALL kwlcos FEATURES AT 2200 BAUD, + KWIK SET 
of: CASS HI/LO, I/O ROUTING, TIME, DATE, BREAK 
KEY, LIST SCROLL SPEED, etc *2A ppd US 

ICWIKIIT ; (specify Model I or Model III) 
Biini-SYSTEM FOR "BASIC" ONLY. EASY-LOAD 1000 
BAUD FOR MOD I, 2200 BAUD FOR MOD III. MANY 
kwikoB FEATURES AMD UP-COMPATIBLE TO FULL 
SYSTEM... (idd tZ for debounce) •S'.SO ppd OS 

k:i>JIMK: i Model I 'system' DUPLICATOR PLUSI 
MAKES STAND-ALONE FAST-LOADING (2i to 6x1 
Kwtk COPY OF ANY MOD I 'SYSTEM' PROGRAM. 
(3 min tape in 44 sec.) «1Z ppd US 

K:1-0A.1M : Model III 'system' DUPLICATOR PLUS- 
MAKES STANDARD 500 OR 1500 BAUD COPY OF ANY 
500/1500 BAUD "SYSTEM" PROGRAM...* 1 O ppd US 
(....COMING SOON....) 

KLOAP ; Model I 'basic' DUPLICATOR PLUS! 
MAKES STAND-ALONE FAST-LOADIKG COPY OF 
ANY 'basic- PROGRAM. DOES FOR 'basic' PROGRAMS 
WHAT HWINK DOES FOR 'system' •IZ ppd US 

^ ^^'^1 I ^^ SOFTWARE 

P.O. BOI32S 

I 1417) 326-7154 BoJivar. Ma. 66613-0328 
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OUT Of THE Bm 

The SoftSide family is 
growing. We will soon be 
covering the IBM Personal 
Computer and we cordially 
invite PC people 
everywhere to join the 
ranks of SoftSide con- 
tributors. If you have a 
program, a review, or just 
a story to tell, let us 
have a look at it. Send 
submissions to: 

SoftSide Publications, inc. 

Department Z 

6 Soutli Street 

Mliford, NM 03055 




WANTED! 



TRS-80 — APPLE — ATARI — VIC 

* PROGRAMIVIERS 

20% Royalties paid monthly 

* SALES REPS 

High Commissions on Sales 



i 



* DEALERS WANTED 

contact: FRANK BOTTA 
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Gompu- 
^ings 



SUITE #2 

270 BROADWAY 

REVERE. MA 021 51 

(617)289-8866 



Two Of The 
Best Programs 
From SoftSide 



Quest 1 An exciting journey into 
an underground maze in search of 
treasure and adventure. Armed 
only witti sword and bow, you 
must rely on quick ttilnking to 
survive. 

Just $4.95 

Flip-It is an excellent Implemen- 
tation of the board game 
OthelloTM. Match wits with a for- 
midable opponent: your computer. 
Just $4.95 



MAIL YOUR ORDER TODAY TO: 

SoftSide, 6 Soutfi Street 
Mliford, NH 03055 



Continental 
Adventures 

lor ATARI' Computer Owners 

Each adventure takes up to an hour and is pro- 
grammed with random variables to change the 
game every time you play. 

• THE TALISMAN OF POWER 

A search through many obstacles for the Four 
Keys of Gremlock. Will you get out alive? 
16K-$17.95 

• THE GHOST TOWER 

Find a rvlagicai Gem in a tower haunted with 
Ores, goblins, etc. 16K-$16.95. 

• SUPER SHAPE BUILDER 

A graphics game mainly for children from age 
five. "Draw" your own pictures with your 
joystick, in color. 8K-$9.95. 
Send Check or C.O.D. — Discs $4.00 extra 

SATISFACTION GUARANTEED 
Send tor Complete Software List 

DEALER INQUIRIES INVITED 

CONTINENTAL ADVENTURES, 4975 Brookdale 

Bloomfleld Hills, Ml 48013 (313) 645-2140 



BUY! SELL! TRADE! 

COMPUTER & HAM EQUIPMENT 

r COMPUTER* 



I TRADER 

PERMANENT 
SUBSCRIPTION 

$10.00 

Low Ad Rates - Mailed Monthly 
COMPUTER TRADER* 

Chet Lambert, W4WDR 

1704 Sam Drive • Birmingham, AL 35235 

(ZOS) 854-0271 

Please include your Name. Address. Call Sign or Phone Numtwr 




flREn 
VDU7 

into' 

SPORTS 

DO VOU-Jog? Swim? 
Walk? Cycle? Run? 
Play Racquet Sports? 

Ttic AeioDics Mastei 
lor tlie Apple' is 
(o( you A lull 
year exercise diary 
Ihal computes the 
imprpvements and 
rallies ol your 
exercises [lay-by- 
day ail year long 



SO/ QCi Dins SI 00 

trtiOU posIa:jf! 
lIiki lianrlling 
r^tcn ifisidents aird 
■'l"'u s,iles rax 



FREE LANCE INK 
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INEH/ PRODUCTSI 



TAZUMI SOFTWARE 
INTERNATIONAL, INC. 
8 North Grosvenor Avenue 
Burnaby, B.C., CANADA 
V5B 1J2 




Horse Racing Classic is a graphics 
horse race simulation game for a 48K 
Apple II™ (DOS 3.3). It allows up to 
nine bettors to participate in a day at the 
race track. Each bettor has access to in- 
formation on the seven horses entered in 
each race, allowing him to expertly 
choose his horse. The bets are placed 
and the race begins, with the 
Thoroughbreds traversing an oval track, 
constantly jockeying for the best posi- 
tions. The payoffs are computed, 
distributed to the winners, and 
graphically displayed to show player 
standings... then the next race begins. 

Horse Racing Classic is available on 
disk at a retail price of $36.95. 



KWIK SOFTWARE 
P.O. Box 328 
Bolivar, MO 65613 



KWICOS, for the TRS-80® Model I, 
Level II with 4 to 48K of memory, is a 
machine-code program that adds disk- 
like commands to Level II BASIC. This 
provides a new and improved Cassette 
Operating System to supplement the 
standard CSAVE/CLOAD/SYSTEM 
routines. It is a software-only enhance- 
ment, and requires no hardware 
modifications or add-ons. All opera- 
tions are effected by simple commands 
in the Level II "Immediate" mode. 
With all its features, it is only about 1700 
bytes long, while a KILL reduces the 
length to 1150 bytes. 

This sytem was initially developed to 
allow 1000 baud operation even with the 
Model I XRX CPU modification active, 
and at this speed {2x), the volume range 
is extremely broad. Without the XRX 
modification, however, even higher 
baud transfer rates can be used. Advan- 
tages of programs taped by KWICOS 
are: 

1) Selectable data-rate (baud) for 
cassette storage: 2x-6x. 



2) A graphics display which guides 
you to the correct volume setting for 
loading each program. 

3) Machine code programs can be 
saved and loaded as easily as BASIC 
programs. 

4) The length of each BASIC program 
is automatically inserted in its 
Fileheading. 

5) "Catalog" feature reads and 
displays the Fileheading for each KWIK 
program on a tape. 

KOS3, for the TRS-80® Model III, 
Level II, 4K to 48K, has the same 
features as KWICOS except: 

1) Transfer rate is fixed at 2250 baud 
for KWIK functions. 

2) Simple control of: BREAK key ac- 
tivation/deactivation; Cassette high/low 
set; Input/Output routing and initializa- 
tion; Time set; Date set; Clock display 
on/off. 

Offered as the reasonable alternatives 
to disk, KWICOS and KOS3 are 
available on cassette from KWIK Soft- 
ware for $24.00 postage paid. 




LEADING EDGE PRODUCTS 

225 Turnpike Street 
Canton, MA 02021 
(800)343-6833 



Mean Green is a new, 12 inch, green screen monitor 
which economically solves the problem of television tie- 
up for the at-home computer user. Also an ideal 
monitor for small businesses, it is a 13 pound CRT 
boasting a composite video signal and a display format 
of 1920 characters (80 characters x 24 lines). It measures 
40 cm wide, 28.5 cm high and 32 cm deep. 

Mean Green carries a one year, no questions asked 
return/replacement plan should the unit fail. It is of- 
fered at a very reasonable suggested retail price of 
$99.00. 




OAK KIT HARDWARE 

8689 North 63rd Street 
Brown Deer, WI 53223 
(414)354-8516 



The Oak Printer Stand is for those 
who enjoy the natural beauty of oak and 
a fun, rewarding challenge at low kit 
prices. It also offers the practical 
benefits of organizing continuous paper 
below your printer, saving space and 
bringing peripherals within easy reach. 

All the kit's parts come pre-cut and 
pre-shaped, and the stand may be 



stained or finished "natural." (Stain 
and varnish are not included with the 
kit.) Instructions and hardware are 
included. 

The stand kit comes in two sizes. The 
Standard kit comfortably holds MX-80, 
Okidata 82A, etc. size printers and its 
generous width also allows use as a 
TV/monitor stand. The King kit holds 
MX-lOO, Okidata 83A, etc. size printers 
with ease. 

Price of the Standard kit is $27.95; the 
King kit is $31.95. When ordering either 
kit, include an additional $3 for shipping 
and handling. 
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PRACTICAL PERIPHERALS, INC. 
31245 La Baya Drive / 

Westlake Village, CA 91362 M 

(213)991-8200 



The Microbuffer If^ is an intelligent 
Centronics-compatible parallel interface 
for the Apple II™ with up to 32K of on- 
board RAM for data buffering as well as 
on-board firmware for text formatting. 
For graphics type printers, the firmware 



also provides advanced graphics dump 
routines. 

The buffering capability of the 
Microbuffer IF'^ increases your data 
processing efficiency by freeing you 
from the wait normally experienced 
while printing. With Microbuffer Z/™', 
you can print and process simultaneous- 
ly. It accepts data as fast as your Ap- 
ple^"'^ can send it, returning control of 
the computer to you while it handles the 
printing. Additional output may be 
dumped to the buffer without waiting 



for the first to be completed. Use of 
Microbuffer Jf^ breaks the computer- 
waiting- for-printer/printer-waiting-for- 
computer bottleneck. 

Microbuffer IF'^ is compatible with 
all parallel printers that use the 
Centronics-type interface. The full buf- 
fering capability and text formatting 
functions are available for all compati- 
ble printers; graphics functions are sup- 
ported for certain hi-resolution graphics 
printers. Suggested retail price for the 
32K is $299.00; for the 16K it is $259.00. 




ATARI® HOME COMPUTER 
DIVISION 
P.O. Box 427 
Sunnyvale, CA 94086 



A 



My First Alphabet gives pre-school 
children an enchanting introduction to 
letters and numbers. The touch of a key 
summons any one of 36 high-resolution 
graphics representing a particular 
character. My First Alphabet uses 
association and pattern recognition to 
help children master objects, songs and 
shapes. This approach sparks children's 
imagination and gives them basic tools 
for the all-important process of concep- 
tual learning. 

My First Alphabet requires an 
ATARI® Home Computer with 32K of 
memory, one disk drive, and an 
ATARI® BASIC cartridge. Suggested 
retail price — $29.95. 



PROGRAM DESIGN, INC. 

11 Idar Court 
Greenwich, CT 06830 
(203)661-8799 



A 



Moonbase lO, available for use 
on ATARI® 400/800 computers 
with memory of at least 24K, is the 
first game on the market to com- 
bine arcade and adventure formats 
with voice narration. It promises to 
challenge even the most experi- 
enced arcader. 

Someday, according to Moon- 
base lO, the solar system will be 
governed by the Earth Federation. 
The Federation will have bases on 
lO and two other Jovian moons, 
Europa and Ganymede. As Moon- 
base lO begins, aliens have entered 
the solar system and have destroyed 
several ships from Earth. Earthbase 
Control asks you, the player, to 
secure the three Jovian bases. 

The game consists of a voice 
cassette and a disk. It is available at 
computer stores, or directly from 
Program Design, at $29.95. A 
cassette version will be available at 
a later date. 
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Next time in SoftSide 



#33. 



JlAAtL 

ITS A 

?AKTK/ 



SoftSide will be four years 

old and we're celebrating 

with a special issue — 

COMPUTER 
GRAPHICS 



Prepare yourself for a new experience in graphic control. 

Envyrn™ — Tile Editor Module 

The Envyrn^*^ system has been under development for over a 
year and is now available for the Apple^'*^, ATARI® and 
TRS-80® computers. The Tile Editor Module will be the first of 
a continuing series, building graphic power into your micro the 
likes of which you never thought possible. 

What effects will computers have on the future of our 
arts and culture? Saul Bernstein will make some predic- 
tions in.... 

The Electronic Renaissance 

PLUS ' — Ame Choate Flynn on the artist's perspective of the 
microcomputer, an expanded review section featuring some of 
the most popular and powerful graphics software available, and 
the climax of Entertainment Tomorrow's series on Computer 
Graphics in the movies. 
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SUDDENLYyou awaken in a coffin 
surrounded 1^ a vast gra 
irOU MUST GETiOUT BE 

HOW? There's no easy way 
walls are too high — ^tlie gat 
-locked. Vampires, Zombies, anil ; 
Werewolves constantly at' 
you iOrantically sedrch musty 1 
crypts, catacombs , and dead ^ 
tombs for treasures and du^ ~ 
ONLY TWELVE HOURi 

ESCAPE OR REMAINTOREVER ! 

-^ *\ ■ 

'it CRYPT OF THE UNDEAD, designed by Marc Benioff . v<^ , \. V 
Offers... ,,* "nf* \ 

• Both Puzzle-Solving & Role-Playing In^igue! f^^ ^ ^ 

• Superb GTa.phics, Sound 6l Color Ar]^ation] "^ 

• Hours of Challenging Terror! ^? 
Requires... '/ ^' 

• ATARI 400/800 8L One Disk Drive 

• One Player & Joystick Controller 
Comes with ... 

• Game Program 8l Complete Instructions 

• EPYX30/FOREVER WARRANTY 






■■-1/ 



Now Available At Your Favorite Dealer ... $29 .95 

For the name of your nearest EPYX dealer write : 

"CRYPT OF THE UNDEAD" 

EPYX/Automated Simulations, Inc. 

P.O. Box 4247. Mountain View. CA 94040 



% 



aDMPUTER GAMES 
TH/NKERS PLAY 



EPYX Temple of Apshai was the very first computer 
game ever to win the Hobby Industry award for 
excellence. EPYX pledges you that same excellence 
in every game you purchase from us . . . the VERY 
BEST in entertainment I 

EPYX 30/FOREVER WARRANTY 
*Our 30-day Unconditional Guarantee: If your 
EPYX Game has any defect whatsoever within 
30 days of purchase, return it to us or your 
dealer and we will replace it free. 
♦Our Forever Warranty: If anything happens 
to your disk at any time after 30 days, for 
any reason, just send it back with $5 .00 for 
shipping, and we will send you a replacement. 



"ATARI 4001 800 is a trademark of ATARI, INC. 





forgets: 



MORE HUM JUSTflNOnmiPIIEnYnGE. 



Says who? Says ANSI. 

Specifically, subcommittee X3B8 of the American 
National Standards Institute (ANSI) says so. The fact 
is all Elephant ^*^ floppies meet or exceed the specs 
required to meet or exceed all their standards. 

But just who is "subcommittee X3B8" to issue such 
pronouncements? 

They're a group of people representing a large, 
well-balanced cross section of disciplines— from 
academia, government agencies, and the computer 
industry. People from places like IBM, Hewlett-Packard, 
3M, Lawrence Livermore Labs, The U.S. Department 
of Defense, Honeywell and The Association of Com- 
puter Programmers and Analysts. In short, it's a bunch 
of high-caliber nitpickers whose mission, it seems, in 
order to make better disks for consumers, is also to 



make life miserable for everyone in the disk-making 
business. 

How? By gathering together periodically (often, 
one suspects, under the full moon) to concoct more 
and more rules to increase the quality of flexible 
disks. Their most recent rule book runs over 20 single- 
spaced pages— listing, and insisting upon— hundreds 
upon hundreds of standards a disk must meet in 
order to be blessed by ANSI. (And thereby be taken 
seriously by people who take disks seriously.) 

In fact, if you'd like a copy of this formidable docu- 
ment, for free, just let us know and we'll send you 
one. Because once you know what it takes to make 
an Elephant for ANSI . . . 

We think you'll want us to make some Elephants 
for you. 



BEPHAIIT. HEiHYDUTYINSKS. 

For a free poster-size portrait of our powerful pachyderm, please write us. 

Distributed Exclusively by Leading Edge Products, Inc., 225 Turnpike Street, Canton, Massachusetts 02021 

Call: toll-fi-ee 1-800-343-6833; or in Massachusetts call collect (617) 828-8150. Telex 951-624. 



